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c5 



o 



u 



u 
O 



u 

o 

O 



o 

/MAGNETIC TAPE EXERCISER MODULE AVAIUABLE IN 2 SIZES 

/MAGTAP OK MAGTPS (401^0 OR 400 WORD BUFFERS) O 

/REV, DATE - 4/15/7J, '■— CU 



/ 

O ,£BREL 



707702 A EEH=707702 
707764 A EBA=707764 



O m^m R 60336)5 A U0D5W 603005 

00001 R 0>t0000 A M /PATTERN WORD FOR PARAMETER MODE 

00002 R 00«000 A /RECORD LENGTH FOR PARAMETER MODE 



O 0Mfe303 R P|0M«0«3 A PJ 

mmA R 1^0^301 R ,DSA MSERV /SERVICE ENTRANCE 

00005 R 0002Bb R ,OSA MINIT /INITIATION ENTRANCE 

O mme R 150107 a 

mmd7 R 240120 A 

00010 R 0M0001 A 1 /MASK FOR CHAIN MODE 

Q 00011 R A .BLOCK 7 



O 



/ 

/ASSEMBLY PARAMETERS--- 

O 004000 A BUFSIZ=4000 /SIZE OF BUFFERS, ****** (400 FOR MAGTPS) O 

mmnB a numhan=i0 /number of handlers allowed, 

^02000 A TSTRUN=2000 

O r-l0W«20 A NUMPAR = g0 /NUMBER OF HANDLER PARAMETERS, O 

7617341 A MTSFa70734l /SKIP ON MAG. TAPE FLAG. 

71^7321 A HTCR = 707321 /SKIP ON CONTROLLER READY. 

O 707301 A MTTR=707301 /SKIP ON TRANSPORT READY, O 

707322 A HTAF=707322 /CLEAR STATUS AND COMMAND REGS, 

707324 A MTCM=707324 /OR AC TO COMMAND REG. 

O 7M7326 A MTLC=707326 /LOAD AC TO COMMAND REG, O 

707352 A MTRS=707352 /READ STATUS REGISTER 

707312 A MTRC=707312 /READ COMMAND REGISTER 

7073M4 A MTGa=707304 /SET GO FLIP-FLOP IN CONTROLLER U 



o 



/RUN LENGTH, 0=2000 O 

/SERVICE ENTRANCE 

....,_. /INITIATION ENTRANCE 

.SIXBT "MAGTAP" /PROGRAM TITLE ****** (MAGTPS) O 

o 



H0020 R qmm<d A SYSERR /ERROR IND, TO M0N,,=-1 FIRST ER,,="2 SECOND ER, 

00021 R 000000 A /WORD COUNT FDR DATA WORDS, (J 

00022 R .5100000 A ERCODE /ERROR CODE, 

00023 R 000000 A /HANDLER NO, 

00024 R 000000 A /COMMAND O 

00025 R mmm a /status return 

00026 R 000000 A /STARTING WC 

O 00027 R 000000 A /FINAL WC O 

00030 R PI00000 A /STARTING CA 

00031 R 1-100000 A /FINAL CA 

o ^ ^ 

/MAGNETIC TAPE SYSTEMS TEST, 

/TEST 0—- RUN ALL AVAILABLE HANDLERS SELECTING HANDLERS AND 

O / OPERATIONS ON A RANDOM BASIS, O 

"-" /TEST 1 — WRITE 100,1000 WORD RECORDS, EACH RECORD ALL ONES, DENSITY 

/ a00 BPI, ODD PARITY, THEN REWIND AND REPEAT. 

O /TEST 2-''-PERF0HM TEST 1, AFTER WRITE SEQUENCE AND REWIND, READ O 

/ ALL RECORDS, REWIND, AND REPEAT READ CYCLE, 

/TEST 3— ^SIMULATED COPY OPERATION, WRITE 1000 RECORDS OF RANDOM LENGTH MADE 

/ UP OF RANDOM DATA, REWIND AND COPY DATA FROM ONE HANDLER TO O 



O 

o 



(J 

o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 

o 
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THE NEXT, AT END OF FILE REWIND BOTH TAPES AND REPEAT, 
, EJECT 



o 

o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 



o 
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o 



o 
o 
o 



0005t) R aaoaiio a 300000 

Q 00051 H A&dimn a 400000 

00052 R 500000 A 5Wa000 

bi0053 H 6I30M00 A 600000 

Q 00034 R 700M0M A 70^000 



O ^ 

000055 R CHKTABsCKNOOP /EQUATE FOR START OF CHECK TAB, 



O 
O 
O 

o 
o 
o 
o 

o 



.EJECT 



o 



/COMMAND SKELETON TA8UE ^ CONTAINS COMMAND CODE FOR EACH CQHMAND, 

/ /WITH INTERRUPT ENABLE BIT SET. 

(?i00j2 r mm^a a nodp 000000 /no op command, C0) O 

M0033 R mxmVi A rewind 931900 /REWIND COMMAND, CU 

00034 R I5II32400 A READ 0t52400 /READ DATA COMMAND, C2) 

00035 R mmmtd a rpcqhp /read and compare command. (3) O 

013036 R ';!a4400 A WRITE 0M4400 /WRlTE COMMAND, (4) 

00037 R 5105400 A WRTEOF 005400 /WRITE EOF COMMAND, C5) 

00040 R .5)06400 A SPCFWD m64m) /SPACE FORWARD COMMAND. C6J Q 

00041 R 007400 A SPCREV 007400 /SPACE REVERSE COMMAND, (73 

00042 R 014400 A WRTEXT 014400 /WRITE EXTENDED CMD, 

Q 00043 R 000400 A NOOPl 000400 O 

00044 R 001400 A REWNDl 001400 

/ 

O 000032 R CMDSKL=NOOP /EQUATE FOR START OF COMMAND TABLE, O 

/ 

00045 R 000000 A HANDNN 000000 /HANDLER NOS, POSITIONED FOR DIRECT 

Q 00046 R 1,00000 A 100000 /INSERTION IN COMMANDS, O 

00047 R 200000 A 200000 



o 
o 
c 



/ 

/CHECK ROUTINE POINTERS ASSOCIATED WITH EACH COMMAND 

o ^ 

00055 R 000000 A CKNUOP /CHECK ND«»QP (0) 

00056 R 000000 A CKRWND /CHECK REWIND (1) 

O 00057 R 000666 R CKREAD CKSRg /CHECK READ DATA C2) O 

00060 R 000000 A CKRDCM /CHECK READ COMPARE (3) 

00061 R 001000 R CKWRT CKSR4 /CHECK WRITE DATA (4) 

O 000Q2 R 001015 R CKWTEF CKSR5 /CHECK WRITE EOF CS) O 

00063 R 001024 R CKSPFD CKSR6 /CHECK SPACE FORWARD (6) 

00064 R 001027 R CKSPBK CKSR7 /CHECK SPACE BACKWARD. (7) 



o 
o 
o 
o 
o 
o 
o 
o 

o 
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o 



00106 R 5100000 A 

o f 

tl00067 R PARTABsCMD 



O 



U 
O 
O 
O 
O 

o 
o 
o 

o 



/ 

00107 R 00001(10 A SVCHD 



o 

o 



/THIS HANDLER AND NEXT HANDLER NUMBERS, 

/ ^ 

O 01^065 R mmm a thshan w /this handler, O 

00066 r mmm a curhan % /current handler, 

O /POINTER LOCATIONS FOR VARIOUS PARAMETERS AND CONSTANTS STORED IN 0PRTA8, O 

/ 

00067 R mmm a cmd /current comhand, 

O %m7% R mmm A ca /current adr, used, O 

00071 R mm%% A WC /WORD COUNT USED, 

00072 R mmm a chkptr /pointer to oper. check routine, 

O P!»K73 R -aHP)000 A CNTR /CURRENT POSITION COUNTER, O 

0^074 R 300000 A CNTH /NO, oF RECORDS WRITTEN COUNTER, 

0007S R (JiBcaaww a denpar /current density and parity, 

O PiPt076 R 0M0000 A NONSEN « /NONSENSE STATUS BITS FOR THIS CMD O 

00077 R tlMWWB^ A HANNUM « /HANDLER NUMBER FOR INSERTION IN CMD, 

m\m R mmm a cmdcnt /command count, 

O m\%\ R 0530000 A EOFCNT /END OF FILE COUNT, O 

0ial02 R 000008 A RDCNT /READ COUNT, 

00103 R 0)00000 A WRTCNT /WRITE COUNT, 

O 00104 R mmm a spfcnt /space forward count, U 

0010S r 000000 a spbcnt a /space backward count. 



o 



/SAVE STORAGE CELLS FOR END OF OPERATION O 



O 



O 00110 R 000000 A SVSTAT 

00U1 R 000000 A SVGA /SAVE FINAL CA, 

00112 R 000000 A SVWC /SAVE FINAL WC, 

O 00U3 R 000033 A SYSCA 33 /POINTERS FOR SYSTEM CA O 

00114 R 000032 A SYSWC 32 /AND WC 

00U5 R m(Am<d A DISTSW /TEST DISTRIBUTION SW, AT SERVICE ENTRANCE, O 

.EJECT 



o 
o 
o 
o 
o 
o 
o 

o 



o 



o 

o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 



o 



o 
o 

o 
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00116 

mix? 

00120 
00121 
00128 
08123 

eai2<i 

00125 



R 0376013 
R fl3760« 
R 302i3W0 

R 000000 

R 313000 
R 303400 
R 303400 
R 2d7Aid^ 



00131 
013132 
081133 
00134 
0^135 
00136 

iawi37 

00140 



R 
R 
R 
R 
R 
R 
R 
R 



06)141 
00142 
00143 
00144 
00145 
00146 
00147 

1^0150 



R 
R 
R 
R 
R 
R 
R 
R 



304000 

00S000 
0010065 

002000 
301000 

00020ia 



00126 R 000400 A 

00127 R 0002(?i0 A 
0%)130 R 000200 A 



^77777 A 
577777 A 
Q77777 A 
737777 A 
757777 
757777 
77Z777 
775777 



00151 R A 

001S1 R (5)00000 A 

00162 R 777777 A 

00163 R 774000 A 



00164 R 



00174 R 000000 A 

00175 R A 



/NONSENSE STATUS BITS ASSOCIATED WITH EACH CDMMAND 

/ 

NONTAB 



037600 

037600 

302000 



313000 

303400 

303400 

207400 



/FOR NOOP(0) 

/FOR REWINDCU 

/FOR READ(23 

/FOR READ-C0MPARE(3) 

/FOR WRITeC43 

/FOR WRITE EOFCS) 

/FOR SPACE FORWARD C6) 

/FOR SPACE REVERSEC7) 



/ 

/CONSTANTS FOR COMMAND DISTRIBUTIONS, 

/ 

EOFCON 400 
SPFCON 200 
SPBCON 200 
/MASK TABLE 
/ 
MSKTAB 



USED FOR SETTING UP 



/WRITE 
/SPACE 
/SPACE 
STATUS 



EOF 

FORWARD 
BACKWARD, 
MASKS FOR 



SELECTABLE HANDLERS, 



/STATU 
/RECOR 

/ 

RECTAB 



/TRACK 



677777 
^77777 
677777 
7^7777 
7^7777 
7Q7777 
77'h777 
77^777 

S WORDS FO 
D LENGTH T 

BUFSI2 
BUFSI//2 
BUFSIZ/4 
BUFSIZ/l 
BUF3IZ/2 
BUFSIZ/4 
BUFSIZ/l 
BUFSIZ/2 
TABLE FOR 



/BIT CORRESPONDS TO HANDLER 
/ZERO WHILE BIT 7 CORRESPONDS 
/TO HANDLE SEVEN, 
/NOTE: THAT MASK TABLE IS IN 
/COMPLEMENTARY FORM, 



R ESTABLISHING 
ABLE 



CURRENT STATUS OF HANDLERS, 



SEVEN AND NINE TRACK TRANSPORTS, 



/0=NOT ACTIVE, INACTIVE 
/asREWlNDING, IsNOT REWINDING 



TRKTAB , BLOCK 10 

/ 

ACTIVE 

ANRWD LAW -1 

MAXBUF "BUFSIZ 

/SPECIAL TABLE FOR DETERMINING WHICH HANDLERS ARE ACTUALLY AVAILABLE, 

/ 

SELHAN .BLOCK 10 

/ 

/SECOND ERROR SAVE TABLE, 


SAVERR .BLOCK 10 

.EJECT 



o 
o I 
o 
o 

I 

o 

o 

o i 

o 

1 

O 1 
O ' 

o I 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 



o 

PAGE 
O 

o 
o 
o 



o 



o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 

o 



s 




MAGTAF 


' SRC 














/************♦*********** 










/MAGNETIC TAPE 

/ 

MINIT 


INITIAUZA 


00205 


R 


000000 


A 




00206 


R 


707764 


A 


EBA 




%^2%7 


R 


707702 


A 


EEM 




PI0210 


R 


200001 


R 


lAC 


UDOSW+1 


00211 


R 


047460 


R 


DAC 


PATTENS 


00212 


R 


773777 


A 


LAW 


-8UFSIZ-1 


!')0213 


R 


340002 


R 


TAD 


UOOSW+2 


015214 


R 


740100 


A 


SMA 




00215 


R 


600224 


R 


JMP 


MINITl 


00216 


R 


750001 


A 


cue 




00217 


R 


340002 


R 


TAD 


UODSW+a 


00220 


R 


740001 


A 


CMA 




00221 


R 


347466 


R 


DAC 


RECLEN#» 


00222 


R 


741100 


A 


SPA 




00223 


R 


600226 


R 


JHP 


,t3 


00224 


R 


774000 


A 


MlNITl LAW 


wBUFSlZ 


00225 


R 


600221 


R 


JMP 


• "4 


00226 


R 


200003 


R 


LAC 


UODSW+3 


00227 


R 


507520 


R 


AND 


i^77777} 


00230 


R 


740200 


A 


SZA 




00231 


R 


600235 


R 


JMP 


, + 4 


00232 


R 


776000 


A 


LAW 


-^TSTRUN 


00233 


R 


047465 


R 


DAC 


RANLEN# 


00234 


R 


600240 


R 


JhP 


,+4 


0023S 


R 


740001 


A 


CMA 




00236 


R 


347521 


R 


TAD 


cu 


00237 


R 


■;i47465 


R 


DAC 


RANLEN 


00240 


R 


200205 


R 


LAC 


MINIT 


00241 


R 


040301 


R 


DAC 


MSERV 


00242 


R 


147442 


R 


DZM 


DST3WU 


00243 


R 


147457 


R 


DZM 


MOVERRi* 


0Q244 


R 


147416 


R 


DZM 


APIFLG# 


00245 


R 


140020 


R 


DZM 


SYSERR 


00246 


R 


140021 


R 


DZM 


ERCODE-1 


00247 


R 


147441 


R 


DZM 
.EJECT 


DOMES 



o ' 

ROUTINE, _^ I 

U 

o ; 

O ! 
O ] 

o 

O i 

I 

o 
o 

o i 

/SET LINK IN MSERV IN CASE 

/QF ERROR, I 

O ! 
/CLEAR SECOND ERROR FLAG, ; 

/CLEAR API FLAG, 
/CLEAR SYSERR, O 

o 
o 
o 
o 
o 
o 
o 
o 




































o 
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00250 


R 


707322 


A 


I1TAF 




/RESET f1AG TAPE FLAGS. 




00251 


R 


707321 


A 


MTCR 




/CHECK CONTROLLER RUY. 


o 


00252 


R 


802646 


R 


J HP 


ERai 


/NOT READY, TERMINATE, 




H0253 


R 


10«627 


R 


JMS 


CL0PT8 


/READYr CLEAR HANDLER TABL 




«a254 


R 


14P)U0 


R 


DZM 


SVSTAT 


/CLEAR STATUS 


o 


0^255 


R 


140161 


R 


DZM 


ACTIVE 


/RESET ACTIVE, AND 




00256 


R 


102617 


R 


JMS 


RESBUF 






0^257 


R 


102601 


R 


JHS 


BUFGEN 




o 


0a26(3 


R 


750001 


A 


cue 




/REWIND MASKS, 




00261 


R 


(340162 


R 


DAC 


ANRWD 






00262 


R 


200001$ 


R 


UAC 


UODSN 


/GET UODSW FOR TEST NO. 


o 


00263 


R 


507522 


R 


AND 


(100000) 






80264 


R 


74120k! 


A 


SNA 








00265 


R 


600457 


R 


JMP 


RANINT+1 




o 


00266 


R 


200000 


R 


LAC 


UDDSW 






00267 


R 


507523 


R 


AND 


(300 






00271^ 


R 


547524 


R 


SAO 


C0) 


/TEST ZERO, RANDOM HANDLER 


o 


00271 


R 


600457 


R 


JMP 


RANINT+1 


/TEST. 




00272 


R 


547525 


R 


SAD 


(100) 


/TEST ONE, WRITE TEST, 




6)0273 


R 


602317 


R 


JMP 


TESTl+1 




o 


80274 


R 


547526 


R 


SAO 


(200) 


/TEST TWO, WRITE THEN READ 




00275 


R 


602324 


R 


JMP 


TEST2+1 


/TEST. 




00276 


R 


547523 


R 


SAO 


(380) 


/TEST 3, COPY TEST, 


o 


00277 


R 


602372 


R 

f 
R 


JMP 


TEST3+1 






003(^0 


R 


600367 


J HP 


TERHIN 




o 










.EJECT 






o 
















o 
















o 
















o 
















o 
















o 
















o 
















o 
















o 
















o 
















o 

















u 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 

o 
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o 



o 



u 



/SERVICE ENTRANCE FOR MAGNETIC TAPE EXERCISER, 



0fe)307 R 5)00000 A TSTFLG 

0(^310 R ei474]l5 R DAC ACSAVEtt /SAVE AC INCASE API IS ON. 

O 00311 R 7^7312 A HTRC 

00312 R !a40l07 R OAC SVCMO 

00313 R 707352 A MTRS 

O 00314 R rM0n0 R DAC SVSTAT 



o ^ 

00332 R 307457 R TSTF.l LAC MOVERR /CHECK MOVE ERROR FUAG, 



0!>1335 R 207442 R UAC DSTSNl 

Q 00336 R 740200 A SZA 

00337 R 600451 R JMP BREAK! 

00340 R 207441 R LAC DONE 

O 00341 R 749200 A SZA 

00342 R 603154 R JMP DON.l 

00343 R 600320 R JMP TSTF.4 

o ^ 

/MAGTAPE FUAGS, 

00344 R T/mi A TSTF.2 LAW "1 /SET API FLAG 
O 00345 R 047416 R OAC APIFLG 

00346 R 707341 A MTSF /CHECK MAG, TAPE FLAG 

00347 R 602663 R JMP ER16 /API IS ON BUT MAG, TAPE FLAG OFF, 
Q 00350 R 100653 R JMS SAVEOP 

00351 R 707322 A MTAF 

00352 R 620307 R JMP* TSTFLG /UN, GO PROC, INTERRUPT, 

O 
O 

o 



o 
o 
o 



o / 

00301 R 000000 A MSERV 

00302 R 707764 A EBA 
O 00303 R 707702 A EEH 

00304 R 190307 R JMS TSTFLG /TEST FLAGS 

00305 R 12MU5 R JMS* DISTSW /TEST DISTRIBUTION SWITCH. 

O 00306 R 600356 R EXIT JMP ENDOPR /END OPERATION, EXIT, O 

/**********•♦*************♦********************************************* 
/TEST FLAGS FOR TYPE OF ENTRY, 

o / 



o 
o 
o 



00315 R 200020 R LAC SYSERR /CHECK SYSERR FLAG. IF ZERO 

00316 R 741200 A SNA /MIGHT BE AN ARTIFICIAL ENTRY, 

00317 R 600332 R JMP TSTF.l /-ZERO, SO CHECK MOVE FLAG. O 

/ 

00320 R 807527 R TSTF,4 LAC C400000) /NOT ZERO CHECK API, ^ 

Q 00321 R 705501 A SPI O 

00322 R 74U300 A SKP 

00323 R 600344 R JMP TSTF,2 /API IS ON, GO SET API FLAG, 

O 00324 R 147416 R D2M APIFLG /API NOT ON, CLEAR API FLAG, O 

00325 R 707341 A MTSF /CHECK MAG, TAPE FLAG 

00326 R 600353 R JMP TSTF.3 /NOT ON, EXIT, NOT MAG, TAPE, 

n as<!327 R 100653 R JMS SAVEOP /ON, SAVE STATUS, WC AND CA FROM O 

00330 R 707322 A MTAF /PREVIOUS OPER. CLEAR MAG TAPE FLAGS. 

00331 R 620307 R JMP* TSTFLG / GO PROC, THIS INTERRUPT, 



o 



00333 R 740200 A SZA 

00334 R 103172 R JMS MQVPUT /ON RETURN MOVE ERROR FROM ERROR SAVE THEN, O 



o 
o 
o 
o 
o 
o 

o 



o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 

o 
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EJECT 



o 

o 
o 
o 
o 
o 
o 
o 



o 



o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 

o 



v.. 
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o 


















W03b3 


R 


750001 


A 


TaTF.3 


cue 






0(3354 


R 


703344 


A 




OBR 




o 


003b5 


R 


620301 


R 


t 

ENDOPR 


JHP* 


M3ERV 




0M356 


R 


207416 


R 


LAC 


APIFLG 


o 


00357 


R 


741200 


A 




SNA 






0H360 


R 


600364 


R 




JMP 


TSTF.5 




00361 


R 


207415 


R 




LAC 


ACSAVE 


o 


015362 


R 


703344 


A 




D3R 






00363 


R 


620301 


R 


f 

TSTF.5 


JMP* 


MSERV 


o 


00364 


R 


750000 


A 


CLA 






5S0365 


R 


703344 


A 




OBR 






00366 


R 


620301 


R 




JMP* 


MSERV 


o 










/ 








00367 


R 


200035 


R 


TERMIN 


LAC 


REWIND 




003/0 


R 


'/147505 


R 




OAC 


TER.1« 


o 


0^371 


R 


mn% 


A 




LAW 


-tl0 




00372 


R 


047506 


R 




DAC 


TER,2S 




00373 


R 


207530 


R 


TERM.l 


LAC 


C-1200) 


o 


0M374 


R 


047507 


R 




OAC 


TER.3W 




0037 S 


R 


707321 


A 




MTCR 






0C'J376 


R 


741000 


A 




SKP 




o 


00377 


R 


600407 


R 




JHP 


. + 10 




03400 


R 


100433 


R 




JMS 


BREAK 




00401 


R 


447507 


R 




ISZ 


T£R,3 


o 


00402 


R 


600375 


R 




JMP 


,-5 




00403 


R 


207531 


R 


TERM, 2 


LAC 


C-4) 




00404 


R 


040020 


R 




DAC 


SYSERR 


o 


00405 


R 


140021 


R 




DZM 


ERCQDE-1 


V— ' 


00406 


R 


600356 


R 




JMP 


ENDOPR 




00407 


R 


207530 


R 




LAC 


(•^12003 


o 


00410 


R 


047507 


R 




OAC 


TER.3 


^T^ 


00411 


R 


207505 


R 




LAC 


TER.l 




00412 


R 


707326 


A 




HTLC 




o 


00413 


R 


707301 


A 




MTTR 






00414 


R 


741000 


A 




SKP 






00415 


R 


600422 


R 




JMP 


.+5 


o 


00416 


R 


100433 


R 




JMS 


BREAK 


N.^ 


00417 


R 


447507 


R 




ISZ 


T£R,3 




00420 


R 


600413 


R 




JMP 


.-5 


o 


00 421 


R 


741000 


A 




SKP 




00422 


R 


707304 


A 




MTGQ 






00423 


R 


347522 


R 




TAD 


0100000) 


o 


00424 


R 


fJ|47505 


R 




DAC 


TER.l 


00425 


R 


447505 


R 




ISZ 


TER,2 




00426 


R 


600373 


R 




JMP 


TERM, I 


o 


00427 


R 


707321 


A 




MTCR 






00430 


R 


600427 


R 




JMP 


.-1 




00431 


R 


707322 


A 




MTAF 




o 


00432 


R 


600403 


R 




JMP 


TERM. 2 












.EJECT 





















o 
















o 

















/NOT MAG, TAPE 
/WITH ACS "1. 



EXIT TQ MONITOR 



/END OPERATION EXIT., CHECK API 
/FLAG FOR RESTORING ACCUMULATOR 
/FLAG OFF. 

/ON, RESTORE AC, DEBREAK, 
/AND EXIT. 



/CLEAR ACCUM, AND EXIT, 



/REWIND ALL HANDLERS 
/THEN EXIT, 



o 

o 

o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 

o 



o 
o 

o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
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00433 
00434 
00435 
H0436 
00437 
00440 
fel0441 
013442 
00443 
00444 
00445 
0M446 
00447 
09450 

00451 

00452 

00453 

00454 
00455 



MAGTAP SRC 



R C147 
R 750 

R 047 
R 200 
R 741 
R 600 
R 777 
R 600 
R 777 
R 040 
R 777 
R 5147 
R 600 



000 A 
417 R 
010 A 
456 R 
020 R 
200 A 

444 R 

776 A 

445 R 
773 A 
020 R 

777 A 
442 R 
306 R 



BREAK 



R 147442 R 
R 307456 R 
R 740020 A 

R 207417 R 
R 620433 R 



BREAK! 








DAC 


BRKAC# 


GLK 




DAC 


LINK« 


UAC 


SYSERR 


SNA 




JMP 


.+3 


LAW 


"2 


JMP 


.+2 


UAW 


-5 


DAC 


SYSERR 


LAW 


-I 


DAC 


DSTSWl 


JMP 


EXIT 


DZM 


DSTSWl 


LAC 


LINK 


RAR 




LAC 


BRKAC 


JHP* 


8REAK 


, EJECT 





o 



o 
o 
o 
o 
o 

o 



u 
o 
o 
o 
o 
o 
o 
o 
o 
o 



o 



o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
n 



u 



u 



O 



O 



O 

o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 



o 



o 
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00456 R O00W00 A 

0a457 R 750000 A 

0fa460 R c^47514 R 

01^461 R 207532 R 

00462 R 040U5 R 

mAod R 147446 R 

00464 R 100513 R 

00465 R 100525 R 

00466 R 600507 R 

00467 R 447446 R 

00470 R 101242 R 

00471 R 100621 R 

00472 R 300131 R 

00473 R 740001 A 

00474 R 340161 R 

00475 R 040161 R 

00476 R 101513 R 

00477 R 101344 R 

00500 R 207446 R 

00501 R 547521 R 

00502 R 741000 A 

00503 R 600465 R 

00504 R 207451 R 

00505 R 040065 R 

00506 R 600465 R 

00507 R 207446 H 
00510 R 547524 R 
005U R 502665 R 
00512 R 600651 R 



/MAGNETIC TAPE KXCERSISER INITIATION ROUTINE. 



****** 



RANINT 



/ 

MINI.l 



MINI. 2 





CLA 

DAC 

LAC 

DAC 

inn 

JHsS 

JMS 
JMP 

isz 

JMS 
JMS 

.PSA 

CMA 

TAD 

DAC 

JMS 

JMS 

LAC 

SAO 

SKP 

JMP 

LAC 

DAC 

JMP 

LAC 
SAD 
JMP 
JMP 
.EJECT 



TSTNQ« 

CRANTST) 

DISTSW 

HaNCNT?* 

POLINT 

POLHAN 
MINI, 2 
HANCNT 

SETNXT 
GET 

MSKTAB 

ACTIVE 
ACTIVE 
CLRDI5 
SLNXOP 
HANCNT 

cn 

MINI.l 
HNDNUMfl 
THSHAN 
MINI.l 

HANCNT 
C0) 
ER20 
RANTS5 



/SET TEST NQ, TO FOR RANTST 

/SET CYCLE COUNT FOR END OF PASS. 

/SET TEST DISTRIBUTION SWITCH IN 

/MSERV TQ RAN TST, 

/CLEAR NUMBER OF AVAILABLE 

/HANDLERS, GQ TO POLLING INITIALIZE. 



/POLL HANDLERS, EXIT +2 IF ACTIVE 
/EXIT +1 IF POLLING COMPLETE, 
/COUNT THIS HANDLER. 
/GO TO SET NXT FOR PARAMETER P. A, 
/SET THIS HANDLER ACTIVE, 



/CLEAR DISTRIBUTION. 
/SELECT NEXT OPERATION FOR THIS 
/HANDLER, THEN CHECK FOR THIS ONE 
/BEING THE FIRST POLLED AND FOUND 



/SET FIRST HANDLER AS "THIS" 
/RETURN FOR NEXT HANDLER. 
/POLLING COMPLETE 
/NO HANDLERS AVAILABLE, EXIT 



FND, 



u 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 

o 



o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
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00513 H 

(3'3514 R 

03515 R 

00516 R 

00517 H 

00520 R 

00521 R 
0KI522 R 
00523 R 
0a524 R 



00525 
00526 
013527 
3C3530 
00531 
00532 
00533 
00534 
00535 
00536 
00537 
00540 
«0541 
00542 
00543 
00544 
0W545 
00546 
00547 
06)550 

00551 
00552 
00553 
00554 

00555 
00556 
00557 
00560 
00561 

00562 
00563 
00564 
00565 
00566 
00567 



000000 

200032 
047513 
777767 
047461 
750001 
047451 
207533 
047510 
620513 



R 000 
R 447 
R 741 
R 620 
R 207 
R 707 
R 7@7 
R 600 
R 707 
R 040 

R 507 
R 741 
R 600 
R 200 
R 507 
R 741 
R 600 
R 750 
R 741 
R 207 
R 067 
R 100 
R 440 
R 620 



000 

461 
000 
525 
613 
326 
301 
570 
352 
110 

M fc ^ 

200 
562 
U0 
534 

200 
550 

001 

000 

535 
510 
604 
525 
523 



A 
R 
R 
A 
R 
A 
R 
R 
R 
R 



R 200 US R 

R 047470 R 

R 207536 R 

R 040115 R 

R 600306 R 

R 207513 R 

R 507537 R 

R 340044 R 

R 707326 A 

R 707304 A 

R 600555 R 



/HANDLER ROLLING INITIATION ROUTINE 

/ 

POLIN' 





LAC 
DAC 
LAW 
OAC 
CLC 
DAC 
LAC 
DAC 

JHP* 



NUQP 
TSTCMD<* 
-11 
POLDON** 

HNDNUM 
CTRKTAB) 
TKT8PT« 
PQLINT 



/HANDLER POLLING ROUTINE 

/ 

PULHAI 



*N 



P0LH.7 



P0LM,9 



POLH,l 



/ 

POLH.. 





ISZ 

SKP 

JMP* 

LAC 

MTLC 

HTTR 

JMP 

MTRS 

DAC 

AND 

SNA 

JMP 

LAC 

AND 

SNA 

JMP 

CLC 

SKP 

LAC 

DAC* 

JMS 

ISZ 

JMP* 

LAC 
DAC 
LAC 
DAC 
JMP 

LAC 

AND 

TAD 

MTLC 

MTGO 

JMP 

.EJECT 



POLOON 

PQLHAN 
TSTCHD 



POLH, 5 

SVSTAT 
C10B000) 

POLH. 4 
SVSTAT 
(19) 

,+3 



il77777) 

TKTBPT 
INCRE 
POLHAN 
POLHAN 

DI3TSW 

5AVDIS# 

CPOLH,63 

DIST8W 

EXIT 

TSTCMD 

(700000) 
REWNOl 



POLH. 2 



/SET TEST COMMAND AS NOOP, 
/SET POLLING COUNT, 

/CLEAR CURRENT HANDLER 
/NUMBER 

/EXIT. 



/PICK UP TEST COMMAND (NOOP) 
/LOAD IT AND CHECK THAT THIS 
/IS READY, 

/ CHECK HANDLER 
/STATUS 

/ON BOT, 

/HANDLER NOT ON BOT, 

/CHECK HANDLER INDICATOR FOR 

/SEVEN OR NINE TRACK, 



/INCREMENT TEST COMMAND, 

/NOT END, EXIT +1 TO LOG ANOTHER 

/HANDLER ON LINE, 

/SAVE DISTRIBUTION SW 
/UNTIL AFTER REWIND, 



/END OF 
/RETURN 



REWIND 

TO MONITOR 



VIA EXIT, I/O STARTED, 



/HANDLER NOT AT BEGINNING OF 
/TAPE, MAKE UP REWIND COMMAND, 
/TRANSMIT IT AND WAIT FOR 
/COMPLETION, 
/TRANSMIT GO, 



u 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 



o 



u 

o 
o 
o 
o 
o 
o 
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HAGTAP SRC 



o 
o 
o 

o 
o 



o 



o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 

o 



00570 


R 


7K7352 


A 


POUH.S 


MTRS 




00571 


R 


S14H110 


R 




OAC 


SVSTAT 


mdS72 


R 


507540 


R 




AND 


(200000) 


00573 


R 


740200 


A 




SZA 




00574 


R 


600577 


K 




JilP 


P0LH,8 


09575 


R 


100604 


R 




J MS 


INCRE 


00576 


R 


600526 


R 


/ 

POiH.a 


JHP 


POLHAN+l 


00577 


R 


100433 


R 


JMS 


BREAK 


0'>)600 


R 


707301 


A 




HTTR 




00601 


R 


7^1000 


A 




SKP 




00602 


R 


600535 


R 




JMP 


P0LH,9 


06)603 


R 


600577 


R 


y 


JMP 


.-4 


0y604 


R 


000000 


A 


INCRE 







0W605 


R 


447510 


R 




ISZ 


TKTBPT 


00606 


R 


207513 


R 




LAC 


TSTCMD 


00607 


R 


347522 


R 




TAD 


C100009) 


00610 


R 


047513 


R 




DAC 


TSTCMD 


00611 


R 


447451 


R 




ISZ 


HNONUM 


00612 


R 


740000 


A 




NOP 




00613 


R 


207451 


R 




LAC 


HNDNUM 


00614 


R 


620604 


R ■ 


/ 

P0L.H,6 


JMP* 


INCRE 


00615 


R 


000((=00 


A 







00616 


R 


207470 


R 




LAC 


SAVDIS 


«^3617 


R 


40115 


R 




DAC 


OISTSW 


00620 


R 


600531 


R 




JMP 


PDLH.7 










/GET SUBROUTINE 




00621 


R 


000000 


A 


GET 







0RI622 


R 


360621 


R 




TAD* 


GET 


00623 


R 


047445 


R 




DAC 


GET,1*? 


00624 


R 


227445 


R 




LAC* 


GET.l 


00625 


R 


440621 


R 




ISZ 


GET 


00626 


R 


620621 


R 


/ 

/CLEAR 

/ 

CLOPTB 


JMP* 


GET 










HANDLER 


OPERATION TABLE, 


00627 


R 


000000 


A 







0^630 


R 


207541 


R 




LAC 


C-NUMHAN*NUMPAR) 


013631 


R 


047436 


R 




DAC 


CL0.1# 


00632 


R 


207542 


R 




LAC 


COPRTAB) 


00633 


R 


047437 


R 




DAC 


CL0,2# 


00634 


R 


167437 


R 


CLOP.l 


DZM* 


CLQ,2 


00635 


R 


447437 


R 




ISZ 


CL0.2 


00636 


R 


447436 


R 




ISZ 


CLQ,1 


00637 


R 


600634 


R 




jhP 


CLOP,! 


0064« 


R 


620627 


R 




JMP* 
.EJECT 


CLOPTB 



/INCREMENT TEST 
/NOT DONE, LOOK 



COMMAND 

AT NEXT HANDLER, 



/INCRE. TEST COMMAND, 

/AND PULLING COUNTER AND CHECK 

/FOR END 



/SET HANDLER NO, IN AC, 

/RETURN FROM REWIND, RESTORE 
/DISTRIBUTION SW., RETURN TO 
/RETEST HANDLER, 



/USED TO GET A VALUE FROM 
/A TABLE. ENTRY WITH INDEX, 
/BASE IS +1 ON CALL, 
/RETURN WITH VALUE, 



/SET OPP TAB LENGTH, 
/SET START OF OPP TAB, 



/ZERO OPR TAB 



o 
o 
o 
o 
o 
o 
o 
o 
c 



o 



o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 

o 



o 
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O 



'O 



o 



o 



o 



o 



00676 R ?)47427 R DAC CKS,3# 

O 00677 R 750001 A CLC 

B^7m R 343414 R TAD BUFl 

00701 R 740001 A CMA 

00702 R 360073 R TAD* CNTR 
H0703 R 527427 R AND* CKS,3 



00704 R 740200 A SZA 

O 00705 R 602670 R JMP ER23 

00706 R 753001 A CUC 

Vi07':d7 R 340112 R TAD SVWC 

O 00710 R 740B01 A CMA 

00711 R 347544 R TAD C-8UFSIZ) 



00712 R 047426 R DAC CKS,2*f 



o 
o 
o 



/****************•****************************♦**♦******************** 
/RANDOM HANDLER EXERCISER - TESTW, 

O ^ 

00641 R <7\<dmm A RANTST 

00642 R 447466 R ISZ RANUEN /INCREMENT PASS COUNTER, 
Q tl0643 R 741(^00 A SKP 

0fei644 R 600367 R JflP TERMIN /DONE WITH TEST. 

00645 R 100661 R JMS CHKUPR /CHECK PREVIOUS OPERATION 

O 00646 R 101270 R RANTS2 JMS UPDTCT /UPDATE COUNTERS. O 

00647 R 101344 R RANTS6 JMS SUNXQP /SELECT NEXT OPER, FOR THIS HANDLER, 

00650 R 102104 R RANTS3 JMS SLNXHN /SELECT NEW NEXT HANDLER, 

O 00651 R 101673 R RANTS5 JMS INTOPR /INITIATE OPERATION ON NEXT HANDLER, O 

00652 R 600306 R JMP EXIT /EXIT. 

/**********************♦***************************************•******** 

O /SAVE TERMINATION PARAMETERS FOR THIS HANDLER AFTER OPERATION COMPLETE, O 

/ 

00653 R 000000 A SAVeOP 

O 0fJ654 R 220113 R LAC* SYSCA /AND WORD COUNT AND SAVE, O 

00655 R 040111 R DAC SVGA 

00636 R 220114 R LAC* SYSWC 

O 00657 R 040U2 R DAC SVWC O 

00660 R 620653 R JMP* SAVEOP 

/***************************************♦************************* 

O /CHECK OPERATION OF PREVIOUS COMMAND-^ O 

/ 

00661 R 000000 A CHKOPR _ 
O 00662 R 220072 R LAC* CHKPTR /GET CHECK ROUTINE POINTER FOR O 

00663 R 5147424 R DaC CKO.l*^ /PREVIOUS COMMAND THEN CHECK, 

00664 R 127424 R JMS* CKO.l /RESULTS OF THE LAST OPERATION, 

O 00665 R 620661 R JMP* CHKOPR /EXIT, O 

/ 

/CHECK READ COMMAND TERMINATION FOR ERRORS 

O 00666 R 000000 A CKSR2 /CHECK COMMON ERROR, THEN O 

00667 R 101032 R JMS CHKCOM /CHECK FOR CORRECT VALUES OF 

00670 R 200110 R LAC SVSTAT 

O 00671 R 507543 R AND (10000) O 

00672 R 740200 A SZA 

00673 R 600717 R JMP CKSR.4 /END OF FILE 

n 00674 R 200065 R LAC THSHAN O 

00675 R 347533 R TAD (TRKTA83 



O 
O 
O 
O 

o 
o 

o 



o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 

o 
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P)0713 R v'5434)l5 R 

00714 R 527427 R 

00715 R 740200 A 
(<10716 R 602666 R 

00717 R 750001 A CKSR,4 

00720 R 340163 H 

00721 R 7Amdi A 

00722 R 360070 R 

00723 R i^47430 R 

00724 R 340112 R 

00725 R 540111 R 

00726 R 741000 A 

00727 R 602656 R 

00730 R 200111 R 

00731 R 54743(f) R 

00732 R 600743 R 

00733 R 200112 R 

00734 R 741200 A 

00735 R f502657 R 

00736 R 200110 R 

00737 R 507545 R 

00740 R 741200 A 

00741 R 602657 R 

00742 R 600752 R 

/ 

00743 R 200112 R CKS2.2 

00744 R 740200 A 

00745 R 602657 R 

00746 R 200110 R 

00747 R 507545 R 

00750 R 740200 A 

00751 R 602657 R 

00752 R 200110 R CKS2,3 

00753 R 507543 R 

00754 R 740200 A 

00755 R 620666 R 

00756 R 207546 R 

00757 R 047425 R 

00760 R 207426 R 

00761 R 347547 R 

00762 R 047426 R 

00763 R 203414 R 

00764 R 367425 R 
01/1765 R 447425 R 

00766 R 447426 R 

00767 R 600764 R 
^i377d R 740001 A 

00771 R 347521 R 

00772 R 367425 R 

00773 R 527427 R 

00774 R 047444 R 

00775 R 740200 A 
00775 R 602667 R 



TAO 


BUFl+1 


AND* 


CKS,3 


sl^ 




JMP 


ER21 


CLC 




TAD 


MAXaUF 


CHA 




TAD* 


CA 


DAC 


CKS2,1** 


TAD 


SVWC 


SAD 


SVCA 


SKP 




JMP 


ERll 


UAC 


SVCA 


SAD 


CKS2,l 


JHP 


CKS2,2 


LAC 


SVWC 


SNA 




JMP 


ER12 


LAC 


SVSTAT 


AND 


CI 000) 


SNA 




JHP 


eRi2 


JMP 


CKS2,3 


LAC 


SVWC 


SZA 


■J 


JHP 


ER12 


LAC 


SVSTAT 


AND 


(1000) 


SZA 




JHP 


ER12 


LAC 


SVSTAT 


AND 


(10000) 


SZA 




JMP* 


CKSR2 


LAC 


(BUFl+1) 


OAC 


CKS.l^ 


LAC 


CKS.2 


TAD 


C2) 


DAC 


CKS,2 


LAC 


BUFl 


TAO* 


CKS.l 


ISZ 


CKS.l 


ISZ 


CKS.2 


JMP 


,-3 


CMA 




TAD 


(13 


TAD* 


CKS,1 


AND* 


CKS,3 


DAC 


ERR,22# 


SZA 




JMP 


ER22 



/WC AND CA AT TERMINATION, 
/FORM CCA+MAXBUF) AND SAV£» 



/FORM (CA+MAXBUF-WC) AND CHECK 
/FOR MATCH WITH FINAL CA. 

/MISMATCH, WC/CA ERROR U, 

/CHECK FOR MATCH OF (CA+MAXBUF) 

/WITH FINAL CA, 

/MATCHi CHECK WC AND INCOR, REC, LEN, 

/MISMATCH, WC SHOULD NOT EQUAL ZERO, 

/AND INCORRECT RECORD LENGTH BIT 

/SHOULD BE SET, 



/INCORRECT REC, LENGTH BIT NOT SET, 

/WC SHOULD BE ZERO, AND 
/INCORRECT RECORD LENGTH SHOULD 
/NOT BE SET 

/RECORD LENGTH INCORRECT 

/IS SET, ERROR. 



/END OF FILE 



/CHECK SUM ERROR 



o 

o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 

o 



o 



o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 

o 
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%%Tn R 62!'!666 R 



JMP* CKSRg 
.EJECT 



/NOT SET, NO ERRQK EXIT, 



o 
o 
o 
o 
o 
o 
o 

o ' 

o I 

o ' 
o 

o ! 

O : 

o 
o 
o 
o 
o 
o 
o 

o 



o 
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o 








o 


01WM0 


R 


ct00i?l00 A 




01001 


H 


101032 R 




01002 


R 


750001 A 


o 


010Ri3 


R 


360071 R 




01004 


R 


740001 A 




01005 


R 


360370 R 


o 


01006 


R 


540111 R 




01007 


R 


741000 A 




01010 


R 


602660 R 


o 


01 1 1 


R 


200112 R 




01012 


R 


740200 A 




01013 


R 


602661 R 


o 


010H 


R 


621000 R 


o 









u 



O 
O 
O 



/CHECK WRITE COMMAND TERMINATION FOR ERRORS, 

/ 

CKSR4 

JM3 CHKCOM /CHECK COMMON ERRORS THEN 



/ 

/CHECK WRITE END OF FILE COMMAND TERMINATION FOR ERRORS, 



01015 R 5100000 A CKSR5 g 



/ 

01024 R 000000 A CK5R6 



01045 R 200110 R 



o 

o 
o 



CLC /CHECK FOR CORRECT VALUES OF 

TAD* WC /WC AND CA AT TERMINATION. O 

CMA 

TAD* CA /FORM CCA+WC) AND MATCH AGAINST 

SAD SVGA /FINAL CA, O 

JMP ER13 /MISMATCH, WC/CA ERROR 4, 

LAC SVNC /MATCH, CHECK FOR WC30, O 

SZ A 

JMP ER14 /WC NaT=0. ERROR 5. 

JMP* CKSR4 /NO ERROR, EXIT, O 



o 



01016 R 101032 R JM3 CHKCOM /CHECK COMMON ERRORS THEN, 

O 01«17 R 200110 R LAC SVSTAT /GET STATUS REGISTER AND CHECK Q 

01020 R 507543 R AND (0100003 /THAT END OF FILE BIT WAS SET, 

01021 R 741200 A SNA 

O 01022 R 602662 R JMP ER15 /EOF SIT NOT SET, ERROR 5, O 

01023 R 621015 R JMP* CKSR5 /NO ERROR EXIT, 

/ 
/CHECK SPACE FORWARD COMMAND TERMINATION FOR ERRORS, Q 



O 01025 R 101032 R JMS CHKCOM /CHECK COMMON ERRORS THEN. O 

01026 R 621024 R JMP* CKSR6 /EXIT. 

/ 

Q /CHECK SPACE REVERSE COMMAND FDR TERMINATION ERRORS, O 

/ 

01027 R 000000 A CKSR7 

C) 01030 R 101032 R JMS CHKCOM /CHECK COMMON ERRORS THEN O 

01031 R 621027 R JMP* CKSR7 /EXIT 

/ 

Q /CHECK OPERATION FOR COMMON ERROR ITEMS O 

01032 R 000000 A CHKCOM 

O 01033 R 200110 H LAC SVSTAT /GET SAVED STATUS AND Q 

01034 R 740100 A SMA 

01035 R 601045 R JMP CHKC.l 

O 01036 R 507550 R AND (40000) /CHECK FOR ILLEGAL COMMAND, O 

01037 R 741200 A SNA 

01040 R 601045 R JMP CHKCl /NOT ILLEGAL 

O 01041 R 200110 R LAC SVSTAT O 

01042 R 507551 R AND (137600) 

01043 R 741200 A SNA 

O 01044 R 502650 R JMP ER03 /NOT FIRST COMMAND, ILLEGAL, O 



o 
o 
o 



o 








.""^ 
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o 


01046 


R 


520076 R 




01047 


R 


740200 A 


o 


0uas0 


R 


602652 R 




01031 


R 


200110 R 




PH052 


R 


74i3l00 A 


o 


010S3 


R 


601057 R 




01054 


R 


507551 R 




01^55 


R 


741200 A 


o 


01056 


R 


602651 R 




01M57 


R 


101064 R 


o 


01060 


R 


60U05 R 




01061 


R 


602653 R 




W1062 


R 


^02654 R 


o 


01063 


R 


621032 R 


o 


01064 


R 


0014000 A 




01065 


R 


200110 R 


o 


01066 


R 


507552 H 


>>*-^ 


01067 


R 


740200 A 




01070 


R 


621064 R 





01071 


R 


200110 R 




01072 


R 


507526 R 




01073 


R 


740200 A 





01074 


R 


601103 R 




01075 


R 


203U0 R 




01076 


R 


507553 R 


o 


01077 


R 


740200 A 




01100 


R 


7410fJ0 A 




01101 


R 


441064 R 


o 


81102 


R 


441064 R 


01103 


R 


441064 R 




01104 


R 


621064 R 


o 








o 








o 








o 








o 








o 








o 








o 








o 









o 
o 

AND* NONSEN /CHECK NONSENSE BITS FOR THIS 

SZA /COMMAND, 

JMP ER05 /SOME ON, ERROR 5, O 

LAC SVSTAT /CHECK ERROR FUAG, IF NOT 

SMA 

JMP CHKC,2 O 

AND (137600) /IF ON CHECK THAT SOME CAUSE 

SNA /BITS ARE ON, 

JMP ER04 /NONE ON, ERROR 4, O 

/ 

CHKC.2 JMS PARDRL /SOME ON, CHECK BAD TAPE, ETC, 

JMP EH10,1 /DATA REQUEST lATE ERROR O 

JMP ER06 /BAD TAPE ERROR 

JMP ER07 /PARITY ERROR 

JMP* CHKCOM /NO ERROR, EXIT, O 

/ 

/PARITY ERROR, DATA REQUEST UATE, AND BAD TAPE ERRORS, 

/ 

PARDRL /CHECKS SAVE STATUS REGISTER ERROR 

LAC SVSTAT /BITS AND IF BAD TAPE ERROR 

AND (400) /RETURNS CALL+2; IF PARITY O 

SZA /ERROR, CALLt3? IF DATA 

JMP* PARDRL /REQUEST LATE ERROR, CALL 

|APCV/*?TAT 

AND C2003 /+! AND IF NO ERROR, CALL 

SZA /+4, 

JMP PARQ,2 

LAC SVSTAT 

AND (20000) 
SZA 
SKP 

ISZ PARDRL 

ISZ PARDRL 

PARD,2 ISZ PARDRL 

JMP* PARDRL 
, EJECT 



o 



o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 

o 



u 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
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0U05 H 
0U06 R 
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740100 A 



ERlfe),! 



01107 R 682655 R 



01110 

lailll 
01112 
0U13 
1 U 4 
MUlS 

01U6 
01117 
01120 
01121 
01122 
01123 
01124 
01125 

0U26 
01127 

0U3y 

01131 
0U32 
01133 
01134 
01135 
01136 

01137 
01140 
01141 
01142 
01143 



R 
R 
R 
R 
R 
R 

R 
R 
R 
R 
R 
R 
R 
R 



10 1126 
207554 
0)40115 
102543 
S03044 
600306 

mmm 

207467 

360067 

207471 

060071 
207470 
040115 
600651 



R mmm a 

R 220067 R 

R 047467 R 

R 220071 R 

R 047471 R 

R 200041 R 

R 36007 5 R 

R 360077 R 

R 060067 R 

R mm A 

R 060071 R 

R 200115 R 

R 047470 R 

R 621126 R 



DOOVER 



SAVOLP 



LAC 


UDDSNtS 


SUA 




/ 




J MP 


ER10 


/ 




JfiS 


SAVOLD 


LAC 


CDOOVER) 


DAC 


DISTSW 


JMS 


TRNCMP 


JMP 


BDTAP3 


JMP 


EXIT 


f 









LAC 


SAVCMD/* 


DAC* 


CMD 


LAC 


SAVWC#* 


DAC* 


WC 


LAC 


SAVDIS 


DAC 


DISTSW 


JMP 


RANTS5 


/ 









LAC* 


CMD 


DAC 


SAVCMD 


LAC* 


WC 


DAC 


SAVWC 


LAC 


SPCREV 


TAD* 


DENPAK 


TAD* 


HANNUM 


DAC* 


CMD 


LAW 


"1 


DAC* 


WC 


LAC 


DISTSW 


DAC 


SAVDIS 


JMP* 


SAVOLD 


.EJECT 





/CHECK TO SEE IF DPERATUR WANTS TO 

/IGNORE DATA LATE ERRORS BY SPACE REVERSE ONE 

/RECORD AND THEN TRY THE FAILING OPERATION AGAIN, 

/DONtT RETRY, JUST REPORT THE ERROR. 



o 
o 
o 
o 
o 
o 
o 
o 
o 



o 



o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 

o 
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o 


01144 


R 


iail26 


R 




01145 


R 


147511 


K 





0U46 


R 


aamuj 


R 


^^^ 


01147 


R 


047503 


R 




0115W 


R 


77777^ 


A 


o 


01151 


R 


15547512 


R 




01152 


R 


207655 


K 




0U53 


R 


040115 


R 


o 


01154 


R 


102643 


R 




01155 


R 


7400fe)0 


A 





MU56 


R 


600306 


R 


01157 


R 


C'I0000E1 


A 




01160 


R 


207556 


R 


o 


01161 


R 


040115 


R 




01162 


R 


207467 


R 




01163 


R 


060067 


R 


o 


01164 


R 


207471 


R 




01165 


R 


9)60071 


R 




01166 


R 


102543 


R 


o 


01167 


R 


740000 


A 




01170 


R 


600306 


R 


o 


01171 


R 


000000 


A 




01172 


R 


200110 


R 




01173 


R 


507552 


R 


o 


01174 


R 


740200 


A 




01175 


R 


601224 


R 




01176 


R 


20allB 


R 


o 


01177 


R 


5f57526 


R 




01200 


R 


74020«i 


A 




012M1 


R 


682653 


R 


o 


012W2 


R 


200110 


R 




01203 


R 


507553 


R 




01204 


R 


740200 


A 


o 


01205 


R 


447511 


R 




01206 


R 


447512 


R 




01207 


R 


741W!rJfc) 


A 





01210 


R 


601230 


R 




01211 


R 


200041 


R 




01212 


R 


360075 


R 


o 


01213 


R 


360077 


R 




01214 


R 


060067 


R 




01215 


R 


777777 


A 


o 


01216 


R 


36H071 


R 




01217 


R 


207555 


R 




01220 


R 


040115 


R 


o 


81221 


R 


102543 


R 




01222 


R 


740000 


A 




01223 


R 


600306 


R 


o 










o 










o 










o 











ER07.1 



FIVTRY 



FIV.l 



FIV,2 



.IMS 


SAVOLD 


o;^^ 


TOTPAK<* 


LAC 


5VSTAT 


DAC 


SSVTAT#* 


UAW 


-5 


DAC 


TOTRTYf* 


LAC 


CFIVTRY) 


DAC 


DISTSW 


JMS 


TRNCMD 


NQP 




J MP 


EXIT 


/ 









LAC 


CFIV.l) 


DAC 


DISTSW 


LAC 


SAVCMD 


DAC* 


CMD 


LAC 


SAVWC 


DAC* 


HC 


JHS 


TRNCMD 


NOP 




J MP 


EXIT 


/ 









LAC 


8VSTAT 


AND 


(400) 


SZA 




JMP 


DLRETY 


LAC 


SVSTAT 


AND 


(20a) 


vSZA 




JMP 


ER06 


LAC 


SVSTAT 


AND 


(20000) 


SZA 




ISZ 


TQTPAR 


ISZ 


TOTRTY 


SKP 




JMP 


RPTER7 


LAC 


SPCREV 


TAD* 


DENPAR 


TAD* 


HANNUM 


DAC* 


CMD 


LAW 


-1 


DAC* 


WC 


LAC 


(FIVTRY) 


DAC 


DISTSW 


JMS 


TRNCMD 


NOP 




JMP 


EXIT 


.EJECT 





*v.y' 



o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 

o 



o 

o 
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u 



/ 

/MULTIPLY BY 16 UTILITY ROUTINE, 



O f 

01263 R mm%% A MPY /ENTRY WITH ARGUMENT IN AC 

01264 R l^mm A CLL /EXIT WITH PRODUCT IN AC, 
O «1265 R 742010 A RTL 

^ 01266 R 742010 A RTL 

01267 R 621253 R JHP* MPY 

O .EJECT 

o 
o 
o 
o 

o 



u 
o 
o 
o 
o 
o 
o 
o 



01224 R 2000W3 K DLRETY LAC UODSW+3 

01225 R 7401^0 A SMA 
O 01226 R 602655 R JMP ERlkS 

01227 R 501211 R JMP FIV,2 

/ 

O 01230 R 207S11 R RPTER7 LAC TOTPAR 

01231 R 7441320 A RCR 

01232 R 742020 A RTH 
O 01233 R 74002IS A RAR 

01234 R 247557 R XOR C/) 

01235 R ^147443 R DAC ERN.l 
O 01236 R 207471^ R LAC SAVDIS 

01237 R 340115 R DAC DI3T5W 

01240 R 103112 R JMS RESPUT 

O 01241 R 602725 R JMP ERR2,1 

/ 
/SET NEXT OPERATION TABLE POINTERS 

O ^ 

01242 R m^^m% a setnxt /entry with handler numser, 

M1243 R !^4Mfe)66 R DAC CURHAN 

O 01244 R IC51263 R JMS MPY /MULTIPLY HANDLER NO, BY NO. O 

01245 R 347542 R TAO (OPRTAB) /OF ENTRIES PER HANDLER AND 

01246 R 040067 R DAC PARTAB /SET FIRST POINTER, 

O tU247 R 207560 R LAC (PARTAB+U /GET NXT P,A, LOC, AND SET, O 

B125H R PI47474 R DAC SET,1« 

01251 R 777762 A LAW -NUMPAR+2 /GET NUM, OF PARAMETERS 

O 01252 R 0147475 R DAC SET, 2** O 

01253 R ^mm^ R lac PARTAB /pick up first pointer, INCREMENT 

/ 

O «1254 R 347521 R SETN.l TAD CI) /FOR NEXT ENTRY O 

01255 R 1^67474 R DAC* SET.l /AND P. A, 

W1256 R 447474 R ISZ SET.l 

O W1257 R 447475 R ISZ SET, 2 /CONTINUE UNTIL DONE, O 

01260 R 6012S4 R JMP SETN,1 

^^1261 R 200B66 R LAC CURHAH /RESTORE INBOUND HANDLER NO, 

01262 R 621242 R JMP* SETNXT /EXIT, O 



o 
o 
o 
o 
o 
o 
o 



o 

o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 



o 



o 
o 
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01270 
01271 
01272 
01273 
01274 
01275 
01276 
01277 
01300 
01301 
01302 
01303 
013k14 
013^5 

81306 
01307 

01310 

81311 
01312 
01313 
01314 
01315 
01316 
01317 
01328 

01321 
01322 
01323 
01324 
R1325 
01326 
01327 
01330 
01331 

01332 
01333 
01334 
01335 
01336 

01337 
01340 
01341 
01342 
01343 



R 1^00 
« 22tl 
R 51^7 
R 547 
R 601 
R 547 
R 601 
R 547 
R 741 
R 601 
R 460 
R 7A^ 
R 220 
R 601 

R 750 
R 340 
R 740i 
R 360 
R 74M 
R 740 
R 360 
R IA67I 
R 741 
R 7 40 
R 621 

R 750 
R 360 
R 740 
R 340 
R 741 
R 7^ii 
R 360 
R 9i6^ 

R im 

R 347 

R 360 
R 741 

R im 

R 621 



0014 
067 
561 
561 
3a 6 
562 
321 
563 

%m 

337 

073 

073 
331 



001 

^71 

001 

112 

%m 

073 
073 

i<5ei 

521 
074 
100 
0413 
27i!i 



220073 
347521 

060073 
060074 
62127ifi 



001 A 
112 R 
001 A 
071 R 
30a A 
040 A 
073 R 
073 R 
100 A 
040 A 
270 R 



/gpDA 

UPDTC 



********************** 
TE POSITION COUNTERS B 



/ 

UPOT, 



UPUT,: 



UPDT,4 



/ 

UPDT,; 





UAC* 

AND 

SAD 

JMP 

SAD 

JMP 

SAD 

SKP 

JMP 

ISZ* 

NOP 

LAC* 

JMP 

u L M 

TAD 

CMA 

TAO* 

SZAISMA 

HLT 

TAO* 

DAC* 

SPA 

HLT 

JMP* 

CLC 

TAO* 

CMA 

TAP 

SPA 

HLT 

TAO* 

DAC* 

CMA 

TAD 

TAD* 

SPA 

HLT 

JMP* 

LAC* 
TAD 
DAC* 
DAC* 

JMP* 
, EJECT 



CMD 

(700^3 

C70ia03 

UPDT.l 

(66300) 

UPDT,2 

C20a03 

UPDT,3 
CNTR 

CNTR 
UPDT,4 



SVSC 



**************************************** 
ASEO ON PREVIOUS COMMAND EXECUTED, 



/GET PREVIOUS COMMAND AND 
/CHECK FOR TYPE. 



HC 



CNTR 
CNTR 



UPDTCT 

WC 
SVWC 



CNTR 
CNTR 

CD 

CNTN 



UPDTCT 
CNTR 

cn 

CNTR 
CNTW 
UPDTCT 



/WAS A BACK SPACE, 
/WAS A FORWARD SPACE. 



/WAS A WRITE OR WRITE EOF, 
/WAS A R£ADCCNTR+1=CNTR) 



/WAS A SACK SPACE. 
/FORMCCNTR-^CINIT, WC-FINAL WC.)) 
/SET IN CNTR. 



/EXIT 

/WAS A FORWARD SPACE, 

/FORM CNTR+CINIT. WC-FINAL WC) 

/SET IN CNTR. 



/WAS A WRITE OR WRITE END OF FILE, 
/INCREMENT CNTR AND SET 
/IN BOTH CNTR AND CnTW, 



o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
c 
o 
o 
o 
o 
c 
o 
o 

o 



u 
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O 



O 

o 

o 



01421 R 601434 R JMP SLNO10 /QR REVERSE 



» 



o 

o 
o 



/SELECT NEXT OPERATION FOR THIS HANDLER TO PERFORM. 

o / 

01344 R mBiam A SLNXOP 

01345 R ;300il0 R LAC SVSTAT /CHECK FOR HANDLER AT 

O 01346 R 507564 R AND (4000) /END OF TAPE, Q 

01347 R 7Ai2&^ A SNA 

01350 R 601353 R JMP SLNO,0 /NO, NORMAL SELECTION, 

O 01351 R 101505 R JMS GENRWD /YES, GENERATE REKIND CONMAND, O 

01352 R 621344 R JMP* SLNXOP /EXIT. 

O 01353 R 200110 R SLNQ,0 LAC SVSTAT /CHECK FOR BOT MARKER, O 

01354 R 537522 R AND (100000) 

01355 R 740200 A SZA 

O 01356 R 6W1467 R JMP SLN0.8 O 

01357 R 22H073 R LAC* CNTR /CHECK POSITION COUNTER FOR 0, 

01360 R 741201;) A SNA /0 MEANS BOT. 

O »136l R 601467 R JMP SLN0,8 /IS ZERO, O 

01362 R 56«074 R SAD* CNTW /NOT ZERO, CHECK CNTR=CNTN, 

01363 R 601473 R JMP SLN0,9 /ARE EQUAL, 



O 

o 



o 



u / 

01364 R 101624 R SLNO.l JMS RANGEN /NEITHER, ANY IMPLEMENTED 

01365 R 507557 R AND (7) /COMMAND FITTING DISTRIBUTION IS 
O 01366 R 047476 R DAC SLN,1<* /LEGAL, GET COMMAND NO, AND 

01367 R 547565 R SAD (4) 

01370 R 601364 R JMP SLNO^l 

O 01371 R 547566 R SAD C5) 

01372 R 601364 R JMP SLNO.l 

01373 R 101537 R JMS CMDOIS /CHECK IF DISTRIBUTION OK. 

O 01374 R 601364 R JHP SLNO.l /NOT OR, GET ANOTHER NUMBER, O 

01375 R 100621 R SLN0.7 JMS GET /OK, GET COMMAND SKELETON 

01376 R 000032 R ,DSA CMDSKL /FOR THIS ONE AND 

O 01377 R 047477 R DAC SLN,2# /SAVE IT, H 

01400 R 207476 R LAC SLN, 1 /GET COMMAND NO, AGAIN 

01401 R 547521 R SAD (1) /DOES FIT, CHECK FOR REWIND, 

O 01402 R 741000 A SKP p, 

01403 R 601406 R JMP SLN0,2 

01404 R 101505 R JHS GENRWD /IS REWIND, GEN. COMMAND AND EXIT, 

O 01405 R 621344 R JMP* SLNXOP Q 

01406 R 207477 R SLNQ,2 LAC SLN, 2 /NOT REWIND, GET COMD, SKELETON, 

Q 01407 R 360077 R TAD* HANNUM /OR IN HANDLER NUMBER AND O 

01410 R 360075 R TAD* DENPAR /CURRENT DESITY AND PARITY. 

01411 R 060067 R DAC* CMD /SAVE IN COMMAND 

O / O 

01412 R 101624 R SLNa,3 JMS RANGEN /GET RANDOM NUMBER FOR 

01413 R 507567 R AND (.77) /POSSIBLE WC, 

O 01414 R 741200 A SNA q 

01416 R 601412 R JMP .-3 /ZERO, DON»T USE, 

01416 R 047500 R DAC SLN,3« /SAVE, 

Q 01417 R 287476 R LAC SLN.l /GET COMMAND NUMBER O 

01420 R 547670 R SAP (6) /AND CHECK FOR SPACE FORWARD ^ 



o 
o 

o 





- -- ■ 




~ ■ ■■ 











o 
















o 
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01422 


R 


547557 


R 




SAP 


(7) 




01423 


R 


741000 


A 




SKP 




o 


01424 


R 


601456 


R 




jmp 


SLNU,6 


^■'^ 


01425 


R 


750001 


A 




CLC 






01426 


R 


347500 


R 




TAP 


SLN.3 


o 


01427 


R 


740001 


A 




CMA 






01430 


R 


360073 


R 




TAD* 


CNTR 




01431 


R 


741100 


A 




SPA 




o 


01432 


R 


601412 


R 




JMP 


SLN0.3 




01433 


R 


601451 


R 




JMP 


5LN0,4 




01434 


R 


207500 


R 


SLNO10 


LAC 


3LN,3 


o 


01435 


R 


507557 


R 




AND 


C7) 




01436 


R 


347521 


R 




TAD 


CI) 




01437 


R 


047500 


R 




DAC 


SLN,3 


o 


01440 


R 


750001 


A 




cue 






01441 


R 


360074 


R 




TAD* 


CNTW 




01442 


R 


740001 


A 




CMA 




o 


01443 


R 


360073 


R 




TAD* 


CNTR 




01444 


R 


347500 


R 




TAD 


SLN,3 




01445 


R 


740001 


A 




CHA 




o 


01446 


R 


347521 


R 




TAD 


CD 




01447 


R 


741100 


A 




SPA 






01450 


R 


601412 


R 




JMP 


SLN0.3 


o 


01451 


R 


750001 


A 


SLN0,4 


CLC 






01452 


R 


347500 


R 




TAD 


SLN,3 




B1453 


R 


740001 


A 




CMA 




o 


01454 


R 


060071 


R 




DAC* 


wc 




01455 


R 


160070 


R 


SLN0,6 


OZM* 


CA 


o 


01456 


R 


207476 


R 


LAC 


SLN,1 




01457 


R 


100621 


R 




JMS 


GET 




01460 


R 


000055 


R 




.08A 


CHKTAS 


o 


01461 


R 


060072 


R 




DAC* 


CHKPTR 


014S2 


R 


207476 


R 




LAC 


SLN.l 




01463 


R 


100621 


R 




JMS 


GET 


o 


01464 


R 


000116 


R 




.PSA 


NONTAB 




01465 


R 


060K76 


R 




DAC* 


NONSEN 




01466 


R 


621344 


R 




JMP* 


SLNXQP 


o 










/CNTR = ZERO« — 


— TAPE AT BOT, 


^^»*' 


01467 


R 


740000 


A 


SUNO.e 


NOP 






P)1470 


R 


101513 


R 




JMS 


CLRUIS 


o 


01471 


R 


102255 


R 




JMS 


GENWRT 


^^^ 


01472 


R 


621344 


R 




JMP* 


SLNXOP 












/CNTRsCNTW"" 


"TAPE AT END 


o 


01473 


R 


101624 


R 


SLNa,9 


JMS 


RANGEN 




01474 


R 


507557 


R 




AND 


(7) 




01475 


R 


^AJ'iyQ 


R 




DAC 


SLN,1 


o 


01476 


R 


547570 


R 




SAO 


C6) 


^.-^ 


01477 


R 


601473 


R 




JMP 


SLN0.9 




01500 


R 


547547 


R 




SAD 


C2) 


o 


01501 


R 


601473 


R 




JMP 


SLN0.9 




0l5id2 


R 


101537 


R 




JMS 


CMDOIS 




01503 


R 


601473 


R 




JMP . 


SLN0,9 


o 
















o 

















/NEITHER CONTINUE, 
/SPACE BACKWARD, 
/CHECK THAT WC DOES NOT 
/EXCEED CNTR, 



/EXCEEDS CNTR, GET ANOTHER WC, 
/OK, CONTINUE, 
/SET WC MOO 8 



/SPACE FORWARD, MAKE SURE 
/rtC DDES NOT exceed: 

/CCNTN'-CNTR) 



/IT DOES, GET ANOTHER, 
/OK, GET WC, COMPLIMENT 



/AND SET IN WORD COUNT, 
/CLEAR CA. 

/GET CHECK POINTER FOR 
/THIS COMMAND, 



/GET NONSENSE BIT MASK, 

/AND PUT AHAY FOR THIS COMMAND, 



/EXIT, 

/CHECK BOT FLAG, SHOULD 

/CLEAR COMMAND DiSTRItiUTION CNTRS, 

/GENERATE A WRITE 



/GET NEXT COMMAND AND 
/CHECK FOR READ OR SPACE 
/FORWARD, ELIMINATE THESE, 

/SPACE FORWARD, REJECT 

/READ, REJECT, 

/CHECK OISTRiaUTIQN OF COMMANDS, 

/NOT OK, 



/■■'~^ 



u 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 

o 



o 



o 



o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
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0l5i44 R 601375 R 



JMP SLN0.7 

.cJECT 



/QK 



o 

o 
o 
o 
o 
o 
o 
o 
o 



o 



o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 



o 
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NAGTAF 


' SRC 








o 










/GENERATE A REWIND COMMAND 




01505 


R 


0^00000 


A 


GENRWD 







o 


01506 


R 


200033 


R 




LAC 


REWIND 


015a7 


F? 


360077 


R 




TAD* 


HANNUM 




01510 


R 


060067 


R 




OAC* 


CMD 


o 


015U 


R 


101513 


R 




JMS 


CLRDIS 




01512 


R 


621505 


R 


/ 

/CLEAR 
/ 

CIRPIS 


JMP* 


GENRWD 


o 










HANDLER 


PARAMETERS, 




01513 


R 


000000 


A 







o 


01514 


R 


160070 


R 




DZM* 


CA 




01515 


R 


160071 


R 




D2M* 


wc 




01516 


R 


160073 


R 




DZM* 


CNTR 


o 


01517 


R 


160074 


R 




DZM* 


CNTW 


^■w^ 


01520 


R 


307571 


R 




LAC 


(403003 




01521 


R 


060075 


R 




DAC* 


DENPAR 


o 


01522 


R 


160076 


R 




DZM* 


NDNSEN 


v^' 


01523 


R 


160100 


R 




DZM* 


CMDCNT 




01524 


R 


200126 


R 




LAC 


EOFCDN 





01525 


R 


060101 


R 




DAC* 


EOFCNT 


01526 


R 


207545 


R 




LAC 


(10003 




01527 


R 


060104 


R 




DAC* 


SPFCNT 


o 


01530 


R 


207545 


R 




LAC 


(10003 


^w.v 


K1531 


R 


060105 


R 




DAC* 


SPBCNT 




01532 


R 


200066 


R 




LAC 


CURHAN 


o 


01533 


R 


100621 


R 




JMS 


GET 




01534 


R 


000045 


R 




.DSA 


HANDNM 




01535 


R 


060077 


R 




DAC* 


HANNUM 





01536 


R 


621513 


R 


/ 

/CHECK 


JMP* 


CLRDIS 












SELECTED 


COMMAND FQ 


o 










/ 








01537 


R 


000000 


A 


CMDDI5 









01540 


R 


047440 


R 




DAC 


CMD.l** 


o 


01541 


R 


547521 


R 




SAO 


(13 


•*--' 


01542 


R 


601556 


R 




JMP 


CMDD.l 




01543 


R 


547547 


R 




SAD 


(23 


o 


01544 


R 


601562 


R 




JMP 


CMDD.2 


"s— ' 


01545 


R 


547565 


R 




SAO 


(43 




01546 


R 


601562 


R 




JMP 


CM0D.2 


o 


01547 


R 


S47566 


R 




SAD 


(5) 


>M^ 


01550 


R 


601566 


R 




JMP 


CMUD.S 




01551 


R 


547570 


R 




SAD 


(63 


o 


01552 


R 


601600 


R 




JMP 


CMDD,6 


01553 


R 


547557 


R 




SAD 


(73 




01554 


R 


601612 


R 




JMP 


CM0D,7 


o 


01555 


R 


621537 


R 


/ 

CMDD.l 


JMP* 


CMODIS 




01556 


R 


220100 


R 


LAC* 


CMDCNT 


o 


01557 


R 


347572 


R 




TAD 


(-100003 


^'w ^ 


01560 


R 


74U00 


A 




SPA 






01561 


R 


621537 


R 




JMP* 


CMDDIS 



o 
o 

o 



EITHER AT END UF TAPE OR BY SELECTION 



't 



/CLEAN UP QPR TAB FOR THIS HANDLER 



/CLEAR COMMAND COUNT, 

/SET NEW EOF DISTRIBUTION COUNTER, 



PROPER DISTRIBUTION, 



/FORWARD SPACE 
/BACKWARD SPACE 



o 



/SET REWIND COMMAND AS NEXT O 

/COMMAND WHEN THIS HANDLER SELECTED, 



O 



OCCURS ON REWIND AND AT BOT. O 

/CLEAR HANDLER PARAMETERS, 

o 
o 



o 



o 
o 
o 
o 
o 



/SAVE COMMAND NUMBER, 

/CHECK FOR REWIND O 



o 



/READ 

/WRITE 

/WRITE EOF O 



o 
o 



/CHECK REWIND COUNT, ALLOWS 

/REWIND ONLY AFTER 4K WRITTEN O 

/RECORDS ARE ON TAPE. 

/NOT ENOUGH-EXIT 

O 

O 

o 



(. J 
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o 










/ 








01562 


R 


460100 


R 


CMDI),2 


ISZ* 


CMDCNT 


o 


01563 


R 


JI07440 


R 




LAC 


CMD.l 




01564 


R 


441537 


R 




ISZ 


C MOD IS 




01565 


R 


621537 


R 




JMP* 


CMDDIS 


o 










/ 
/ 








01566 


R 


750001 


A 


CMDP,5 


CLC 




o 


01567 


R 


360100 


R 




TAD* 


CMDCNT 




01576) 


R 


740001 


A 




CMA 






01571 


R 


36B101 


R 




TAO* 


EOFCNT 


o 


01572 


R 


745!) 100 


A 




SMA 






01573 


R 


621537 


R 




JMP* 


CMODIS 




01574 


R 


220101 


R 




LAC* 


EDFCNT 


o 


01575 


R 


340126 


R 




TAP 


EQFCQN 




01576 


R 


060101 


R 




OAC* 


EOFCNT 




01577 


K 


601562 


R 




JMP 


CMDD,2 


o 










/ 








01600 


R 


750001 


A 


CM00.6 


CLC 






01601 


R 


360100 


R 




TAO* 


CMDCNT 


o 


01602 


R 


740001 


A 




CMA 






01603 


R 


360104 


R 




TAD* 


SPFCNT 




01604 


R 


740100 


A 




SMA 




o 


01605 


R 


621537 


R 




JMP* 


CMDDIS 




01606 


R 


220104 


R 




LAC* 


SPFCNT 




01607 


R 


349127 


R 




TAD 


SPFCON 


o 


01610 


R 


060104 


R 




DAC* 


SPFCNT 




01611 


R 


601562 


R 


Cf1DD,7 


JMP 


CMDD.2 


o 


01612 


R 


750001 


A 


CLC 




s,^ 


01613 


R 


360100 


R 




TAD* 


CMDCNT 




01614 


R 


740001 


A 




CMA 




o 


01615 


R 


360105 


R 




TAD* 


SPBCNT 




01616 


R 


7 40100 


A 




SMA 






01617 


R 


621537 


R 




JMP* 


CMDDIS 


o 


01620 


R 


220105 


R 




LAC* 


SPBCNT 


^•— -' 


01621 


R 


340130 


R 




TAD 


SPBCQN 




01622 


R 


060105 


R 




DAC* 


SPBCNT 


o 


01623 


R 


601562 


R 




JMP 
.EJECT 


CMDD.2 


o 
















o 
















o 
















o 
















o 
















o 
















o 

















/ENOUGH-EXIT 



/WRITE EQF, CHECK END 0F FILE 
/COUNTER AGAINST COMMAND 
/COUNT, 



/EXIT^NOT ENOUGH 
/ENOUGH'^SET NEW COUNT, 



/SPACE FORWARD, CHECK SPACE 
/FORWARD COUNTER AGAINST 
/COMMAND COUNT, 



/EXIT, NOT ENOUGH, 
/ENOUGH-SET NEW COUNT, 



/SPACE BACKWARD, CHECK SPACE 
/BACKWARD COUNTER AGAINST 
/COMMAND COUNT, 



/EXIT, NOT ENOUGH, 
/ENOUGH-SET NEW COUNT 



u 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 



o 



o 
o 
o 
o 

o 



o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 

o 
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01624 
01625 
01626 
01627 
01630 
01631 
fc3l632 
01633 
01634 
«1635 
01636 
01637 
01640 

01641 
016 42 
01643 
01644 
01645 
01646 
01647 

puesa 

01651 
016S2 
01633 
01654 
01655 
016tj6 
81657 
01660 

01661 
01662 
01663 
01664 
01665 
01666 
01667 
01670 
01671 
01672 



MAGTAP SRC 



/RANDOM NUHBER GENERATQR-FRQM TAPE EXERCISER EXEC, 



R 
R 

R 
R 
R 
R 
R 
R 
R 
R 
R 
R 
R 

R 
R 
R 
R 
R 
R 
R 
R 
R 
R 
R 
R 
R 
R 
R 
R 

R 
R 
R 
R 
R 
R 
R 
R 
R 
R 



1100000 

201662 
547573 
741000 
001640 
207574 
041662 
201661 
745100 
744002 
740010 
041661 
221662 

341661 
061662 
441660 
601651 
367524 
061662 
777400 
041660 
201657 
740020 
361662 
041667 
441662 
621624 
300000 
777400 

123456 
001673 
654321 
361416 
055363 
546060 
243035 
762572 
453237 
150214 



A 
R 
R 
A 
R 
R 
R 
K 
A 
A 
A 
R 
R 

R 
R 
R 
R 
R 

R 
A 
R 
R 
A 
R 
R 
R 
R 
A 
A 

A 
R 
A 
A 
A 
A 
A 
A 
A 
A 



RANGEN 



RANTAO 



RANSAV 

RANCNT 

/ 

RANCON 

RANDEX 

RANTBU 





lAC 

SAD 

SKP 

J MP 

LAC 

DAC 

LAC 

SPAJCLL 

STL 

RAL 

DAC 

LAC* 

TAD 

DAC* 

ISZ 

JHP 

TAD* 

DAC* 

LAW 

DAC 

LAC 

RAR 

TAD* 

DAC 

ISZ 

JHP* 



-400 



RANDEX 
CRANTBL+10) 

RANTAD-1 
CRANTBL) 
RANDEX 
RANCON 



RANCON 
RANDEX 

RANCQN 

RANDEX 

RANCNT 

,t5 

(0) 

RANDEX 

-400 

RANCNT 

RANSAV 

RANDEX 
RANSAV 
RANDEX 
RANGEN 



123456 

RANTBL+10 

654321 

361416 

055363 

546060 

243035 

762572 

453237 

150214 

, EJECT 



/GET RANDOM TABLE INDEX AND 
/CHECK FOR END OF TABLE. 

/NO, CONTINUE. 

/YES, RESET INDEX TO START OF 

/TABLE. 

/DO A ROTATE ON RANCON 

/AND REPLACE. 



/PICK UP TABLE ENTRY AND 

/ADD CONSTANT, REPLACING IN 
/ENTRY. 



/PICK UP PREVIOUS RANDOM NUMBER 
/ROTATE IT ON RIGHT AND ADD 
/IT TO THIS TABLE ENTRY. 
/SAVE THE NUMBER, 
/INCREMENT RANDEX FOR NEXT 
/CYCLE AND EXIT WITH NUMBER INAC, 
/CURRENT RANDOM NUMBER. 



/RANDOM CONSTANT, 
/RANTBL INDEX 
/RANDOM VALUE TABLE. 



o 
o 
o 
o 
o 
o 



o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 

o 



o 

o 

o 
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01673 




01674 


o 


01675 




01676 




01677 


o 


01700 




01701 




01702 


o 


01703 




01704 




01705 


o 


01706 




01707 




01710 


o 


01711 




01712 




01713 


o 


01714 




01715 




01716 


o 


01717 




01720 




01721 


o 


01722 




01723 




01724 





01725 




01726 




01727 


o 


01730 




01731 


o 






01732 




01733 


o 


01734 




01735 




01736 


o 


01737 


V,--' 


01740 




01741 


o 


01742 




01743 




01744 


o 


01745 




01746 




01747 


o 


01750 


*»— -^ 


01751 




01752 


o 




o 




o 





R 
R 
R 
R 
R 
R 
R 
R 
R 
R 
R 
R 
R 
R 
R 
R 
R 

R 
R 
R 

R 

R 
R 
R 
R 
R 
R 
R 
R 
R 



000000 

102601 
102307 
147452 
207575 
047453 
707321 
741000 

447453 
601701 
602646 
102023 
200065 
101242 
220067 
507561 
547563 
601757 
547564 
601731 

547545 

601764 
102543 
601727 
207452 
741200 
621673 
102104 
601674 



R g60070 R 

R 101624 R 

R 507357 R 

R 100621 R 

R 000141 R 

R 043415 R 

R 740001 A 

R 347521 R 

R 060071 R 

R 347547 R 

R 047454 R 

R 207546 R 

R 047455 R 

R 220073 R 

R 043414 R 

R 357455 R 

R 447455 R 



/INITIATE NEXT 

/ 

INTOPR 

JMS 
J MS 
DZM 
LAC 
DAC 
MTCR 

SKP 
JMP 

I3Z 

JMP 

J MP 

JMS 

LAC 

JMS 

LAC* 

AND 

SAD 

JMP 

SAD 

JMP 

SAD 
JMP 

INTD.l JMS 
JMP 
LAC 
SNA 
JMP* 

INTO, 6 JMS 
JMP 

/GENERATE DATA 
INTO, 4 LAC 



********************************************************* 
OPERATION ON NEXT HANDLER, 



DAC* 

JMS 

AND 

JMS 

.DSA 

DAC 

CM A 

TAD 

DAC* 

TAD 

DAC 

LAC 

DAC 

LAC* 

DAC 

TAD* 

ISZ 



BUFGEN 
HOLD 
INT,3# 
("12000) 

INT,4W 



/RESET REPEAT FLAG 

/MAIT FOR TRANSPORT HEADY, 



.+4 

INT, 4 

.-4 

ER01 

CKRWO 

THSHAN 

SETNXT 

CND 

(70003 

(2000) 
INTO, 3 
(4000) 
INTO, 4 
(1000) 
INTO, 5 

TRNCMD 
INTO, 6 
INT, 3 

INTOPR 
5LNXHN 
INTDPR+1 
AND SET UP 
(BUFl-1) 

CA 

RANGEN 

(7) 

GET 

RECTAB 

BUFl+1 

(1) 

WC 

(2) 

INT. 5** 

(BUFl+1) 

INT,6« 

CNTR 

BUFl 

INT, 6 

INT, 6 



/READYf CHECK ANY HANDLERS DONE REWIND, 



/CHECK NEXT COMMAND FOR READ, 
/WRITE, OR REWIND, 

/READ COMMAND NEXT, 
/WRITE COMMAND NEXT 

/REWIND COMMAND NEXT, 
/TRANSMIT CURRENT COMMAND 
/HANDLER NOT RDY, RETURN 
/CHECK REPEAT FLAG, IF ON JUST 
/ISSUED A REWIND, 
/NOT ON, EXIT, 
/ON SELECT NEW HANDLER AND 
/REPEAT. IF NO MORE HANDLERS SEE SLNXHN, 
PARAMETERS TO INITIATE A WRITE, 
/INITIATE A WRITE-GET 
/NEXT BUFFER AND SAVE IN 
/OPRTAB AND IN SYSTEM CA, 
/GET RECORD LENGTH FROM RANGEN 
/USING REC TAB. 



/SET THE VALUE IN OPRTAB AND 



o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 



o 



o 
o 
o 
o 
o 
o 

o 



o 
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o 



^ /SET REWIND BITS FOR HANOUER REWINDING, 

/ 

O %\m R (ii00t!500 A SETRWO « 

0i773 R 7.mm^ R UAC CURHAN 

01774 R lM06gl R JMS GET 

O 01775 R 300131 R ,DSA MSKTAB 

01776 R 500162 R AND ANRWD 

01777 R 040162 H DAC ANRWD 
O 02000 R mm A LAW "1 

02001 R 347446 R TAD HANCNT 

020!>12 R 047446 R DAC HANCNT 

O 02003 R 740200 A SZA 



o 
o 

o 



02027 R 047431 R DAC CKW.l** 



o 
o 



01753 R 447454 R ISZ INT. 5 

01754 R 601751 R JMP .-3 
O 01755 R 067455 R DAC* INT.6 

01756 R 691722 R JMP INTP.l /RETURN TO START OPERATION, 

/SET UP PARAMETERS TO INITIATE A READ, 

O 01737 R ?fl7576 R INTO, 3 LAC CBUFl^U /GET NEXT BUFFER AND SAVE O 

01760 R t^60070 R DAC* CA /IN DPRTAS AND SYSTEM CA, 

01761 R 200163 R LAC MAXBUF /SET SYSTEM WORD COUNT TO 

O 01762 R (-160071 R DAC* WC /MAXIMUM BUFFER SIZE AND O 

01763 R 601722 R JMP INTO,! /RETURN TO INITIATE COMMAND, 

/SET REWIND OPERATION 

O 01764 R 101772 R INTO. 5 JMS SETRWD /GO SET REWINDING LOCK OUT, O 

01765 R 547524 R SAO (0) /THIS IS LAST HANDLER 

01766 R 601771 R JMP .+3 /DON'T REPEAT, 

O 01767 R mm A LAN -1 /ESSENTIALLY TERMINATES O 

01770 R 047452 R DAC INT, 3 /CYCLE ON THIS HANDLER, SET REPEAT 

01771 R 801722 R JMP INTO,! /INITIATION FLAG AND INITIATE REWIND, 



O I 

o 

c 
o 
o 



02004 R 621772 R JMP* SETRWD /EXIT, 

02005 R 200044 R LAC REWNDl 

Q 02006 R 360077 R TAD* HANNUM O 

02007 R !g60067 R DAC* CMD 

02010 R 207577 R LAC CSETR.l) 

O 02011 R 040115 R DAC OISTSW O 

02012 R 750000 A CLA 

02013 R 621772 R JMP* SETRWD 

O 02014 R 000000 A SETR.l O 

02015 R 200065 R LAC THSHAN 

02016 R 102057 R JMS CLRRWD 

O 02017 R 207532 R LAC CRANTST) O 

02020 R 040115 R DAC DISTSW 

02021 R 101513 R JMS CLRDIS 

Q 02022 R 600647 R JMP RaNTSS O 

/TEST FOR ANY HANDLERS REWINDING AND IF SO, IS THE OPERATION COMPLETE, 

o f 

02023 R C100000 A CKRWD 

02024 R 147433 R DZM CKW,3« 

O 02025 R 900162 R LAC ANRWD /GET HANDLER REWINDING FLAG O 

"^ 02026 R 740001 A CMA /MORE, COMPLIMENT IT AND SAVE. 



r- 



U 



O 

o 
O 



o 



o 
o 
o 



o 
o 
o 



o 



o 
o 
o 
o 
o 

o 
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/GET REWINDING FUAG AGAIN AND 
O 02047 R 7440113 A RCL /CHECK THE NEXT HANDLER, O 

/ANY MORE? 
O 02032 R 622023 R JHP* CKRWD /NO, EXIT, O 

■■'■■■ ■ ■ ■" -- " /YES, STEP THE NOOP 

/AND GO AROUND AGAIN, 



02030 


R 


741200 


A 




SNA 




02031 


R 


622023 


R 




JMP* 


CKRWD 


02032 


R 


200032 


R 




LAC 


NOOP 


02033 


R 


047432 


R 




DAC 


CKW,2« 


02034 


R 


207431 


R 


CKRW,2 


LAC 


CKW.l 


02035 


R 


740100 


A 




SMA 




02036 


R 


602045 


R 




JMP 


CKRW.l 


02037 


R 


207432 


R 


/ 


LAC 


CKW,2 


02040 


R 


707326 


A 


HTLC 




02041 


R 


707301 


A 




MTTR 




02042 


R 


502045 


R 




JMP 


CKRW.l 


02043 


R 


207433 


R 




LAC 


CKW,3 


02044 


R 


102057 


R 


/ 

CKRW.l 


JMS 


CLRRWD 


02045 


R 


447433 


R 


ISZ 


CKW,3 


02046 


R 


207431 


R 




LAC 


CKW,l 


02047 


R 


744010 


A 




RCL 




^2050 


R 


047431 


R 




DAC 


CKW.l 


02051 


R 


741200 


A 




SNA 




02032 


R 


622023 


R 




JHP* 


CKRWD 


02053 


R 


207432 


R 




LAC 


CKW.2 


020S4 


R 


347522 


R 




TAD 


(100000) 


02055 


R 


047432 


R 




DAC 


CKW,2 


02056 


R 


602034 


R 


/ 
/CLEAR 

/ 

CLRRl^D 


JMP 


CKRW,2 










REWINDING HANDLER 


02057 


R 


5500000 


A 







02069 


R 


101242 


R 




JMS 


SETNXT 


02061 


R 


101344 


R 




JMS 


SLNXOP 


02062 


R 


200066 


R 




LAC 


CURHAN 


02063 


R 


100621 


R 




JMS 


GET 


02064 


R 


'?)00131 


R 




• DSA 


MSKTAB 


02065 


R 


740001 


A 




CMA 




02066 


R 


340162 


R 




TAD 


ANRWD 


02067 


R 


040162 


R 




DAC 


ANRWD 


02070 


R 


447446 


R 




ISZ 


HANCNT 


02071 


R 


622057 


R 


/ 

CHKHAN 


JMP* 


CLRRWD 


02072 


R 


000000 


A 







02073 


R 


S07575 


R 




LAC 


(-12000) 


02074 


R 


047423 


R 




DAC 


CHK.IJ* 


02075 


R 


707301 


A 




MTTR 




02076 


R 


602101 


R 




JMP 


.+3 


02077 


R 


442072 


R 




ISZ 


CHKHAN 


02100 


R 


622072 


R 




JMP* 


CHKHAN 


02101 


R 


447423 


R 




ISZ 


CHK.l 


02102 


R 


602075 


R 




JMP 


,-5 


02103 


R 


602647 


R 




JMP 
•EJECT 


ER02 



/TRANSMIT NOOP (UNIT NO.) TO CONTROL 



/CHECK FOR TRANSPORT READY. 
/READY, CLEAR REWINDING, 



/GET MASK POSITIONED FOR THIS 



/40 MS, 

/HANDLER READY, RETURN, 

/NOT RDY, ERROR 



o 
o 



/ARE ANY REWINDING. 

/NO, EXIT. 
O 02032 R 200032 R LAC NOOP /YES, SET UP NOOP COMMAND FOR Q 

" - " ~ " ■ ' /REWINDING UNIT SELECTION, 

/GET REWINDING FLAG WORD AND 
O 02035 R 740100 A SMA /CHECK FOR THIS ONE REWINDING, O 



o 
o 
o 



o 
o 
o 



O 02063 R 100621 R JMS GET /HANDLER NO. AND SET HANDLER O 

~- '■■ " -- " --■ ..".^-..- /REWINDING BIT FOR THIS HANDLER 

/SO THAT IT CAN BE RANDOMLY 
O 02066 R 340162 R TAD ANRWD /SELECTED AGAIN IN SEL, NEXT, O 

~ ~ ■" ■ ■" " /HANDLER 



o 



O 02073 R S07575 R LAC (-12000) /WAIT FDR HANDLER O 

^ -"' ^ " ""■ """ "' /TO COME READY, NO MORE THAN 



o 
o 
o 

o 
o 

o 



o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 

o 
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/SELECT NEW NEXT HANDLER ROUTINE, 



/GET NO, OF HANDLERS AVAILABLE 

/FOR RANDOM SELECTIDiM, 

/ONE PR MORE AVAILABLE, 

/NO HANDLERS AVAILABLE FOR SELECTION, CHECK 

/FOR AN OUTSTANDING REHIND. 

/NO REWINDS-ALL OUT OF HANDLERS, 

/YES AN OUTSTANDING REWIND, 

/FIND FIRST REWINDING HANDLER 

/FOUND. 

/NOT FOUND, CONTINUE SEARCH, 



/SET HANDLER SELECTION 



/EXIT TO MONITOR SETTING 

/DISTRIBUTOR SWITCH TO RETURN 

/HERE ON INTERRUPT, 

/AFTER REWINDING COMPLETE, 

/CLEAR REWINDING BIT FOR THIS HANDLER 

/RESET DISTRIBUTION SWITCH, 

/TRY AGAIN, 

/GET NEXT RANDOM NUMBER 
/AND CHECK SELECTION TABLE 
/TO DETERMINE IF THAT ONE 
/IS AVAILABLE, 



/NO, GET ANOTHER HANDLER NO, 

/YES, USE THAT NO. FOR NEW 

/NEXT HANDLER. 

/SET OLD NEXT HANDLER IN THIS 

/EXIT, 



132104 


R 


!100«00 


/ 
A SLNXHN 







02135 


R 


1M21S2 


R SLNX,6 


JfiS 


SELTAB 


0210fi 


R 


740200 


A 


SZA 




021PJ7 


R 


602137 


R 


JMP 


SLNX.l 


02U0 


R 


200162 


R 


LAC 


ANRWD 


B21U 


R 


740001 


A 


CHA 




M2U2 


R 


7412W0 


A 


SNA 




02113 


R 


6fe)2665 


R 


JHP 


ER20 


02114 


R 


147501 


R 


DZH 


SLX,1# 


02Ua 


R 


74110^ 


A 


SPA 




02116 


R 


6^52122 


R 


JMP 


.+4 


P2117 


R 


744010 


A 


RCL 




02120 


R 


447501 


R 


I3Z 


SLX.l 


02121 


R 


602115 


R 


JMP 


,"4 


02122 


R 


20756)1 


R 


LAC 


SLX,l 


M2123 


R 


100621 


R 


JHS 


GET 


02124 


R 


0055045 


R 


• DSA 


HANDNM 


02125 


R 


348)043 


R. 


TAD 


NOOPl 


02126 


R 


707326 


A 


HTLC 




02127 


R 


207600 


R 


LAC 


CSLNX.43 


02130 


R 


040115 


R 


UAC 


OISTSW 


02131 


R 


600306 


R 


JMP 


EXIT 


02132 


R 


2075kil 


R SLNX.4 


LAC 


SLX.l 


02133 


R 


102057 


R 


JMS 


CLRRWD 


02134 


R 


207532 


R 


LAC 


CRANTST) 


02135 


R 


040115 


R 


DAC 


OISTSW 


02136 


R 


6«2105 


R 


JMP 


SLNX.5 


02137 


R 


101624 


R SLNX.l 


JMS 


RANGEN 


02140 


R 


507557 


R 


AND 


C7) 


«214l 


R 


047501 


R 


DAC 


SLX,l 


02142 


R 


347601 


R 


TAD 


CSELHAN) 


02143 


R 


PJ47502 


R 


DAC 


SLX,2# 


02144 


R 


227502 


R 


LAC* 


SLX,2 


02145 


R 


740200 


A 


SZA 




02146 


R 


6»2137 


R 


JMP 


SLNX.l 


02147 


R 


207601 


R 


LAC 


SLX,1 


02150 


R 


C140K65 


R 


DAC 


THSHAN 


02151 


R 


622104 


R 


JMP* 
.EJECT 


SLNXHN 



u 
o 
o 
o 
o 
o 
o 
o 
o 
o 



o 



o 
o 
o 
o 
o 
o 
o 
o 
o 
o 

o 
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o 










o 


02152 


R 


!:?00000 


A 




02153 


R 


77777% 


A 




02154 


R 


fi)47472 


R 


o 


02155 


R 


207601 


R 




02156 


R 


047 473 


R 




02157 


R 


750001 


A 


o 


0215M 


R 


067473 


R 




02161 


R 


447473 


R 




02162 


R 


447472 


R 


o 


02163 


R 


602160 


R 




02164 


R 


207601 


R 




02165 


R 


?)47473 


R 


o 


02166 


R 


147472 


R 




02167 


R 


280161 


R 


o 


02170 


R 


500162 


R 




02171 


R 


740100 


A 




02172 


R 


602175 


R 


o 


02173 


R 


167473 


R 




02174 


R 


447472 


R 




02175 


R 


744010 


A 


o 


02176 


R 


74120M 


A 




02177 


R 


6022M2 


R 




022fr)8 


R 


447473 


R 


o 


02201 


R 


602171 


R 




02202 


R 


207472 


R 




02203 


R 


622152 


R 


o 










o 










o 










o 










o 










o 










o 










o 










o 










o 










o 











/ROUTINE TO DETERMINE WHICH HANDLERS ARE AVAIUABLE FOR RANDOM SELECTION, 



SELTA6 



SELT.l 



SELT,2 



SELT.3 



S£LT,4 



LAN 


"10 


DAC 


SEL.i*t 


LAC 


CSELHAN) 


DAC 


SEL,2# 


CLC 




DAC* 


SeL.2 


ISZ 


SEL.2 


ISZ 


SEL.l 


JdP 


SELT,1 


LAC 


CSELHAN) 


DAC 


SEL.2 


DZM 


SEL.l 


LAC 


ACTIVE 


AND 


ANRWD 


SMA 




JMP 


SELT.3 


OZM* 


SEL.2 


ISZ 


SEL.l 


RCL 




SNA 




JMP 


SELT.4 


ISZ 


SEL.2 


JMP 


SELT,2 


LAC 


SEL.l 


JMP* 


SELTAB 



.EJECT 



/CLEAR SELECTABLE HANDLERS 

/TO MINUS ONES, 

/AS EACH HANDLER IS EXAMINED 

/SELECTABILITY, ITS ENTRY IS 

/IF AVAILABLE FDR SERVICE, 

/RETURN TO SLNXHN WITH NUMBER 

/HANDLERS AVAILABLE, 

/AND TOGETHER THE FOLLOWING TO 

/MINE SELECTABILITY, 



FOR 
ZEROED 



DETER- 



/ACTIVE:0 = lNACTIVEn=ACTIVE 

/ARWD?a = REWINDINGn=NaT REWINDING 

/SPECIAL:'a = SPEC. SEQn=NOT SPECIAL 

/ALL THOSE WITH A ONE RESULT ARE SELECTABLE, 

/CHECK LEFT MOST BIT. 
/OFF-NOT AVAILABLE. 
/ON-CLEAR HANDLER ENTRY. 
/COUNT THE NO, AVAILABLE. 
/SHIFT TO GET NEXT ONE, 

/DONE-NO MORE AVAILABLE, 
/MORE AVAILABLE-'GET THEM. 

/SET NUMBER AVAILABLE IN AC. 
/AND RETURN. 



o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 

o 



1 J 



(. J 



o 
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/*********************** 












/WRITE 


EXERCISER TEST 


o 


02204 


R 


000000 


A 


TSTl.l 









022W5 


R 


2076^^2 


R 




LAC 


CTST1,2) 




02206 


R 


040115 


R 




UAC 


DISTSW 


o 


02207 


R 


100513 


R 




JMS 


POLINT 




02210 


R 


100525 


R 




JMS 


POLHAN 




022U 


R 


602665 


R 




JMP 


ER20 


o 


02212 


R 


101242 


R 




jriS 


SETNXT 




02213 


R 


101513 


H 




JMS 


CLRDIS 




02214 


R 


207521 


R 




LAC 


cn 


o 


02215 


R 


^A7AAQ 


R 




DAC 


HANCNT 


x.^' 


02216 


R 


102255 


R 




JHS 


GENWRT 




02217 


R 


102274 


R 




JMS 


CLBHl 


o 


02220 


R 


207465 


R 




LAC 


RANLEN 




02221 


R 


M47515 


R 




DAC 


TSl,2# 




02222 


R 


207576 


R 




LAC 


CBUFl-1) 


o 


02223 


R 


060070 


R 




DAC* 


CA 




02224 


R 


307466 


R 




UAC 


RECLEN 




02225 


R 


060071 


R 




DAC* 


NC 


o 


02226 


R 


102307 


R 


TST1,3 


JMS 


HOLD 


02227 


R 


102543 


R 




JMS 


TRNCMD 




02230 


R 


602665 


R 




JMP 


ER20 


o 


02231 


R 


600306 


R 




JMP 


EXIT 




02232 


R 


000000 


A 


T5T1.2 









02233 


R 


100661 


R 




JMS 


CHKOPR 


o 


02234 


R 


200 110 


R 




LAC 


SVSTAT 


^-^ 


02235 


R 


507564 


R 




AND 


C4000) 




02236 


R 


740200 


A 




SZA 




o 


02237 


R 


602242 


R 




JMP 


, + 3 


V^x 


02240 


R 


447515 


R 




ISZ 


TS1.2 




02241 


R 


602226 


R 




JMP 


TST1.3 


o 


02242 


R 


200044 


R 




LAC 


REWNDl 


02243 


R 


360077 


R 




TAO* 


HANNUM 




02244 


R 


060067 


R 




DAC* 


CMD 


o 


02245 


R 


101513 


R 




JMS 


CLRDIS 


^•^-^ 


02246 


R 


102543 


R 




JMS 


TRNCMD 




02247 


R 


602665 


R 




JMP 


ER20 


o 


02250 


R 


207603 


R 




LAC 


CTSTl.4) 


''^-^ 


02251 


R 


040115 


R 




DAC 


DISTSW 




02252 


R 


600306 


R 




JMP 


EXIT 


o 


02253 


R 


000000 


A 


TST1.4 







02254 


R 


622204 


R 




JMP* 


TSTl.l 














.EJECT 




o 
















o 
















o 
















o 
















o 
















o 

















f************** 



/SET DISTRIBUTION SWITCH FOR RETURN, 

/GO TO PULL HANDLERS AND 
/FIND ONE ACTIVE. 
/NONE ACTIVE-TERMINATE. 
/SET THIS HANDLER 
/CLEAR PARAMETERS 



/GENERATE WRITE COMMAND, 
/CLEAR WRITE BUFFER TO ALL I'S 
/SET NUMBER OF CYCLES TO 300 
/OCTAL. 



/HANDLER NOT READY ERROR, 



/CHECK OPERATION 



/COUNT END 
/NOT END 



o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 

o 



o 

o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 



o 



PAGE 36 



02255 
022S6 

02237 

02260 

02201 

022o2 

02263 

02264 

02265 
02266 

02267 
02270 
02271 
02272 
02273 



02274 
02275 
02276 

02277 

02300 
02301 
02302 
02303 
02304 
02305 
02306 

02397 
02310 
02311 
02312 
02313 
02314 
02315 



MAGTAP SRC 



R 000000 A 
R 200036 R 

R 360077 R 
R 360075 R 
R 5)60067 R 
R 207576 R 
R 060070 R 
R 200061 R 

R 060072 R 
R 207565 R 
R 100621 R 
R 000116 R 
R 0600/6 R 
R 460100 R 
R 622255 R 



R 000 
R 207 
R 047 
R VIA 
R 047 
R 207 
R 067 
R 447 
R 447 
R 602 
R 622 



000 A 
604 R 

434 R 
000 A 

435 R 
460 R 
434 R 

434 R 

435 R 
302 R 
274 R 



R 000000 A 

R 750004 A 

R 507521 R 

R 741200 A 

R 622307 R 

R 100433 R 

R 602310 R 



/GENERATK 

/ 

GENWRT 

T 
T 

U 
D 
L 

D 

L 

• 

D 
I 
J 



A WRITE COMMAND 



AC 

AO* 

AO* 

AC* 

AC 

AC* 

AC 

AC* 

AC 

HS 

DSA 

AC* 

SZ* 

MP* 



WRITE 

HANNUM 

OEHPAR 

CMD 

(BUFl-n 

CA 

CKWRT 

CHKPTR 
C4) 

GET 

N0NTA8 

N0N3EN 

CMDCNT 

GENWRT 



/GET WRITE COMMAND 
/SET HANDIER NUMBER, 
/DENSITY AND PARITY AND 
/SET IN COMMAND, 



/SET CHECK NRITE POINTER, 



/INCREMENT 
/EXIT, 



COMMAND COUNT, 



/CLEAR BUFFER TO MINUS ONES, 

/ 

CUBMl 



/ 

HOLD 



AC 

AC 

AW 

AC 

AC 

AC* 

SZ 

SZ 

MP 

MP* 



AS 

ND 

NA 

MP* 

MS 

MP 

EJECT 



(BUFU 

Cl,eM,i# 

-BUKSIZ 

CLaM.2# 

PATTEN 

CU8M,l 

CLBM.l 

CUBM.2 

CLBMl 



CD 

HOIP 
BREAK 

,-5 



U 

o 

o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 



o 
o 
o 
o 

o 



o 



o 
o 
o 

o 



o 
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o 



o 



o 



o 
o 
o 



o 
o 

o 



/WRITE EXERCISER 



o ^ 

02316 R mmm A TESTl 
023X7 R 207581 R LAC (1) 

O 02320 R 347bH R DAC TSTNQ 

02321 R 102204 R JMS TST1,1 

02322 R 600367 R JMP TERMIN 

^ /**** WRITE-REAU EXERCISER 

/ 



0233S R 602327 R JMP ^-S 

/ 



O 02336 R mmm a TST2,1 /ASSUMES EXECUTION OF T5TU1 O 

w ----- " ----- - -- ^^..o« /GENERATE A READ COM, 

/SET DISTRIBUTION SWITCH, 



/TRANSMIT COMMAND, 
O 02344 R 602665 R JHP ER20 /HANDIER NOT READY, O 

^ "—'- " —""'= " '"° -"-- /EXIT, 

O 132347 R 1(^0661 R JMS CHKOPR /CHECK OPERATION O 



02336 


R 


mmm 


A 


/ 
TST2,1 







02337 


R 


1M9625 


R 




JMS 


GENRD 


02340 


R 


207605 


R 




LAC 


CTST2,2) 


02341 


R 


040U5 


R 




DAC 


DISTSW 


02342 


R 


102307 


R 


TST2,3 


JMS 


HOLD 


02343 


R 


102543 


R 




JMS 


TRNCMD 


02344 


R 


602665 


R 




JMP 


ER20 


02345 


R 


600306 


R 




JMP 


EXIT 


02346 


R 


mm%^ 


A 


TST2,2 







02347 


R 


1(^0661 


R 




JMS 


CHKOPR 


02350 


R 


200lli3 


R 




LAC 


SVSTAT 


02351 


R 


507564 


R 




AND 


C4000) 


02352 


R 


740200 


A 




SZA 




02353 


R 


602356 


R 




JMP 


,+3 


02354 


R 


447516 


R 




ISZ 


TS2.1 


02355 


R 


6fe52342 


R 




JMP 


TST2,3 


02356 


R 


200044 


R 




LAC 


REWNDl 


02357 


R 


360077 


R 




TAD* 


HANNUM 


02360 


R 


g60ia67 


R 




DAC* 


CMD 


02361 


R 


101513 


R 




JMS 


CLRDIS 


02362 


R 


102543 


R 




JMS 


TRNCMD 


02363 


R 


602665 


R 




JMP 


ER20 


02364 


R 


2076H6 


R 




LAC 


(TST2,4) 


02365 


R 


040115 


R 




DAC 


DISTSW 


02366 


R 


600306 


R 




JMP 


EXIT 


02367 


R 


000000 


A 


TST2.4 







02370 


R 


622536 


R 




JMP* 


T3T2,1 



o 
o 
o 
o 
o 



Q 02323 R 000000 A TEST2 

02324 R 907547 R LAC (2) /SET TEST NO. TO 2, 

02325 R 047514 R DAC TSTNO 

O 02326 R 102204 R JMS TSTl.l /WRITE RECORDS, O 

02327 R 750001 A CLC 

02330 R 347515 R TAD TS1,2 

O 02331 R 740001 A CMA O 

02332 R 347465 R TAD RANLEN 

02333 R 047516 R DAC TS2,1« 
O 02334 R 102336 R JMS TST2,1 /READ RECORDS, O 



/***********************************************************#*************** o 

/WRITt-READ EXERCISER TEST 



o 



o 

/COUNT CYCLES, 

/NOT DONE, REPEAT, O 

O 



„ ..,.„-,. /TRANSMIT IT, 

O 02363 R 602665 R JMP ER20 /HANDLER NOT READY. O 

^ .. - . ... .- ^3£.j. olSTRIBUTION SWITCH, 

O 02366 R 600306 R JMP EXIT /EXIT, O 
- /DONE REWINDING, RETURN, 



O 
O 

o 



u 
o 

u 

o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 

o 
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.fcJECT 



u 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 

o 



u 
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o 










/ 
TEST3 


**********•#***** 


o 


02371 


R 


,7)013000 


A 







^•w*' 


02372 


R 


207607 


R 




LAC 


C3) 




02373 


R 


C147514 


R 




DAC 


TSTNO 


o 


02374 


R 


102376 


R 




JMS 


TST3,1 




02375 


R 


600367 


R 


/ 

TST3,1 


JMP 


TERMIN 


o 


023/6 


R 


O50HKt)0 


A 







^*»»^ 


02377 


R 


147446 


R 




DZM 


HANCNT 




02400 


R 


207610 


R 




LAC 


CTST3,33 


o 


02401 


R 


040115 


R 




OAC 


DISTSW 




024(d2 


R 


100513 


R 




JMS 


POLINT 




02403 


R 


100525 


R 


TST3,7 


JMS 


POLHAN 


o 


02404 


R 


602665 


R 




JMP 


ER20 




1^2405 


R 


447446 


R 




I5Z 


HANCNT 




024W6 


R 


047517 


R 




DAC 


TS3,1# 


o 


024H7 


R 


207446 


R 




LAC 


HANCNT 




02410 


R 


547521 


R 




3AD 


CD 




02411 


R 


741000 


A 




SKP 




o 


02412 


R 


602416 


R 




JMP 


TST3.6 




02413 


R 


207517 


R 




LAC 


TS3,1 




02414 


R 


047447 


R 




DAC 


HANNQ1# 


o 


02415 


R 


602403 


R 




JMP 


TST3,7 




02416 


R 


207517 


R 


TST3.6 


LAC 


TS3,1 




02417 


R 


047450 


R 




DAC 


HANN02** 


o 


02420 


R 


101242 


R 




JMS 


SETNXT 




02421 


R 


101513 


R 




JMS 


CLRDIS 




02422 


R 


207447 


R 




LAC 


HANNOl 


o 


02423 


R 


101242 


H 




JMS 


SETNXT 




02424 


R 


101513 


R 




JMS 


CLRDIS 




02425 


R 


102274 


R 




JMS 


CLBMl 


o 


02426 


R 


102255 


R 




JMS 


GENWRT 




02427 


R 


307465 


R 




LAC 


RANLEN 




0243M 


R 


047517 


R 




OAC 


TS3.1 


o 


02431 


R 


102307 


H 


TST3,4 


JMS 


HOLD 




02432 


R 


101624 


R 




JMS 


RANGEN 




02433 


R 


507557 


H 




AND 


C73 


o 


02434 


R 


100621 


R 




JMS 


GET 




02435 


R 


000141 


R 




.DSA 


RECTAS 




02436 


R 


740001 


A 




CM A 




o 


02437 


R 


347521 


R 




TAD 


CD 




02440 


R 


060071 


R 




DAC* 


wc 




02441 


R 


102543 


R 




JMS 


TRNCMD 


o 


02442 


R 


602665 


R 




JMP 


ER20 


02443 


R 


600306 


R 




JMP 


EXIT 














.EJECT 





^-.' 



o 
o 
o 
o 

o 



/SET TEST NUMBER, 

/GO TO TEST 

/EXIT, END OF TEST, 

/SEGMENT 1, INITw CLR HANDLER CNT, 



O 

O 

o 

o 
o 
o 
c 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 

o 



o 
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MAGTAF 


' SRC 






02444 


R 


ci000ftk5 


A TST3,3 









02445 


K 


100661 


R 


J MS 


CHKUPR 


o 


02446 


R 


2B0U0 


R 


LAC 


S VST AT 


^'«— *' 


02447 


R 


507564 


R 


AND 


C40fe)03 




024aM 


R 


7402Hfe3 


A 


3ZA 




o 


02451 


R 


602454 


R 


JHP 


,+3 




02452 


R 


447517 


R 


ISZ 


TS3,1 




02453 


R 


602431 


R 


JMP 


TST3,4 


o 


02454 


R 


200044 


R 


LAC 


REWNDl 




02455 


R 


360077 


R 


TAD* 


HANNUH 




02456 


R 


060067 


R 


OAC* 


CMD 


o 


02457 


R 


101513 


R 


JM8 


CLRDIS 




02460 


R 


102543 


R 


JMS 


TRNCMD 




02461 


R 


602665 


R 


JMP 


ER2k5 


o 


02462 


R 


307611 


R 


LAC 


CTST3,5) 




02463 


R 


fe340U5 


R 


DAC 


OISTSW 




02464 


R 


750001 


A 


CLC 




o 


02465 


R 


347517 


R 


TAD 


TS3,l 




02466 


R 


740001 


A 


CMA 






02467 


R 


347465 


R 


TAD 


RANLEN 


o 


^Z^7% 


R 


W47517 


R 


DAC 


TS3,1 




02471 


R 


600306 


R 

/ 

A TST3,5 


JMP 


EXIT 


o 


02478 


R 


!1000S0 









02473 


R 


102307 


R 


JfiS 


HOLD 




02474 


R 


207447 


R 


LAC 


HANNOl 


o 


02475 


R 


101242 


R 


JHS 


SETNXT 




02476 


R 


207612 


R 


LAC 


CTST3.83 




02477 


R 


554(3115 


R 


DAC 


OISTSW 


o 


02500 


R 


102625 


R 


JMS 


GENRD 




02501 


R 


102543 


R 


JMS 


TRNCMD 




02502 


R 


602665 


R 


JMP 


ER20 


o 


02503 


R 


600306 


R 


JMP 
.EJECT 


EXIT 


o 














o 














o 














o 














o 














o 














o 














o 














o 















o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 

o 



o 
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MAGTAF 


' SRC 


o 


02504 


R 


mmm 


A 




02505 


R 


100661 


R 


o 


02506 


R 


200U0 


R 


>— ^ 


0251(57 


R 


507564 


R 




M2510 


R 


7A(A20& 


A 


o 


025U 


R 


602542 


R 




02512 


R 


102307 


R 




02513 


R 


20745ta 


R 


o 


02514 


R 


101242 


R 




02515 


R 


207613 


R 




02516 


R 


5140115 


R 


o 


02517 


R 


102255 


R 




02520 


R 


750(001 


A 




02521 


R 


340112 


R 


o 


02522 


R 


7400fcl 


A 


N»^ 


02523 


R 


340163 


R 




02524 


R 


74120ia 


A 





02525 


R 


602664 


R 




02526 


R 


360071 


R 




02527 


R 


102543 


R 


o 


02530 


R 


602665 


R 


02531 


R 


600306 


R 


o 


02532 


R 


000000 


A 


^^.-^ 


02533 


R 


100661 


R 




02534 


R 


200110 


R 


o 


02535 


R 


507564 


R 


"-r^ 


02536 


R 


740200 


A 




02537 


R 


602542 


R 


o 


02540 


R 


447517 


R 


^^w^ 


02541 


R 


602473 


R 



o 
o 
o 
o 
o 
o 
o 
o 

o 



TST3.6 

JMS CHKOPR 

LAC SV3TAT 

AND C4000) 

SZA 

JHP TST3,2 

JMS HOUD 

LAC HANN02 

JMS SETNXT 

LAC CTST3.9) 

DAC DISTSW 

JMS GENWRT 

CLC 

TAD SVWC 

CMA 

TAD MAXBUF 

SNA 

JMP ER17 

DAC* WC 

JMS TRNCMD 



JMP eR20 
JMP EXIT 



/ 

TST3.9 



.EJECT 



o 

o 
o 
o 
o 
o 
o 
o 
o 
o 



JMS CHKDPR 

LAC SVSTAT 

AND (4000) O 

SZA 

JMP TST3,2 

I3Z TS3,1 O 

JHP T5T3,5+l 



/ 

O 02542 R 622376 R TST3,2 JMP* TST3,1 



o 
o 
o 
o 

o 
o 
o 
o 

C) 



o 

o 
o 
o 
o 
o 
o 
o 
o 
o 



o 



o 
o 
o 
o 
o 
o 
o 
o 
o 
o 

o 
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MAGTAP SRC 











/TRANSMIT COHHAND TO HAN 


02543 


R 


000000 


A 


f 

TRNCMD 




02544 


R 


220071 


R 


LAC* 


WC 


02545 


R 


ties u 4 


R 


DAC* 


SYSWC 


M2546 


R 


220070 


R 


LAC* 


CA 


GI2547 


R 


c?)60U3 


R 


DAC* 


SYSCA 


02550 


R 


220067 


R 


LAC* 


CMD 


02551 


R 


707321 


A 


MTCR 




02552 


R 


602551 


H 


JMP 


."1 


02553 


R 


707326 


A 


MTLC 




02554 


R 


707352 


A 


MtRS 




02555 


R 


507534 


R 


AHO 


(10) 


02556 


R 


745200 


A 


SNAiCLL 




02557 


R 


608573 


R 


JMP 


TRNCl 


02560 


R 


200000 


R 


LAC 


UDDSW 


02561 


R 


507614 


R 


ANP 


(3000) 


02562 


R 


547614 


R 


SAD 


(3000) 


02563 


R 


602573 


R 


JMP 


TRNC.l 


02564 


R 


742020 


A 


RTR 




02565 


R 


740020 


A 


RAR 




02566 


R 


047504 


R 


DAC 


SVPAR^ 


02567 


R 


707312 


A 


MTRC 




02570 


R 


507615 


R 


AND 


^777^77) 


02571 


R 


247504 


R 


XOR 


SVPAR 


02572 


R 


707326 


A 


MTLC 




02573 


R 


102072 


R 


TRNCl JMS 


CHKHAN 


02574 


R 


522543 


R 


JMP* 


TRNCMD 


02575 


R 


10S307 


R 


JMS 


HOLD 


02576 


R 


707304 


A 


MTGO 




02577 


R 


442543 


R 


ISZ 


TRNCMD 


02690 


R 


622543 


R 


JMP* 
.EJECT 


TRNCMD 



/TRANSMIT COMMAND SUBROUTINE, 
/LOAD WC AND CURRENT ADR, 
/FROM OPR TAB, 

/THEN, GET CURRENT COMMAND 
/AND CHECK CONTROLLER, 
/NOT READY, ERROR AND TERMIN, 
/READY, LOAD COMMAND AND 



/CHECK HANDLER 

/NEED ANOTHER HANDLER, 

/OK, SET GO, 



u 
o 
o 
o 
o 
o 
o 
o 
o 



o 



o 



o 



o 



o 
o 
o 
o 
o 
o 
o 
o 

o 



o 
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MAGTAF 


' SRC 










o 










/BUFFER 

/ 

BUFGEN 


RANDQH 


DATA GENERATION 


ROUTINE 


o 


02601 


R 


000000 


A 









^-.t^ 


026*52 


K 


mim 


A 




LAW 


-40 






02603 


R 


(^47420 


R 




DAG 


8UF,1« 


/FORTY OCTAL LOCATIONS 





0260 4 


R 


101624 


R 




JMS 


RANGEN 


/ENTRY 




026t35 


R 


741200 


A 




SNA 








02606 


R 


602604 


R 




JMP 


,-2 




o 


02607 


R 


5167421 


R 




DAC* 


BUF,2# 






02610 


R 


447421 


R 




I5Z 


BUF,2 






026U 


R 


447422 


R 




ISZ 


BUF,3« 




o 


02612 


R 


741000 


A 




SKP 






02613 


R 


102617 


R 




JMS 


RESBUF 






02614 


R 


447420 


R 




ISZ 


BUF.l 




o 


02615 


R 


602604 


R 




JMP 


,-11 




^-w' 


02616 


R 


622601 


R 


/ 

RE5BUF 


JMP* 


BUFGEN 




o 


02617 


R 


000000 


A 









'•^—^ 


02620 


R 


7 7 4000 


A 




LAW 


-BUFSIZ 






02621 


R 


047422 


R 




DAC 


BUF,3 




o 


02622 


R 


207604 


R 




LAC 


(BUFl) 




^>-r^ 


02623 


R 


347421 


R 




DAC 


BUF,2 






02624 


R 


622617 


R 




JMP* 


RESBUF 




o 










/ 
/ 
/ 








o 


02625 


R 


000000 


A 


GENRD 







/GENERATE READ 




02626 


R 


200034 


R 




LAC 


READ 






02627 


R 


360077 


R 




TAO* 


HANNUM 




o 


02630 


R 


360075 


R 




TAP* 


DENPAR 






02631 


R 


0160067 


R 




DAC* 


CMO 






02632 


R 


207576 


R 




LAC 


CBUFl-13 




o 


02633 


R 


060070 


R 




DAC* 


CA 




V*--' 


02634 


R 


200163 


R 




LAC 


MAXBUF 






02635 


R 


060071 


R 




DAC* 


WC 







02636 


R 


300057 


R 




LAC 


CKREAD 




^'w' 


02637 


R 


060072 


R 




DAC* 


CHKPTR 






02640 


R 


20/547 


R 




LAC 


(2) 




o 


02641 


R 


100621 


R 




JMS 


GET 






02642 


R 


300 U 6 


R 




.OSA 


NUNTA6 






02643 


R 


060076 


R 




DAC* 


NUNSEN 




o 


02644 


R 


460100 


R 




ISZ* 


CMOCNT 




^^--^ 


02645 


R 


622625 


R 




JMP* 
.EJECT 


GENRO 




o 


















o 


















o 


















o 





































o 



















o 
o 

PER 

o 
o 
o 
o 
o 



o I 



o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 

o 



o 



C) / /POSSIBLE ERRORS-^-"-- O 

^ - " " --"' " -"""" /CONTROLLER NOT REAOY AT INITIATION. 

/SELECTED TRANSPORT NOT REAOY AT INIT, 
O 03650 R 103723 R ER^a JUS ERR02 /ILLEGAL COMMAND RETURN, O 

^ ' ^ - - /EF HIGH, NO CAUSE BITS HIGH. 

/NONSENSE BITS HIGH FOR THIS CMD, 

/aAD TAPE ERROR-INITIATE RECOVERY, O 

/PARITY ERROR, 
/DATA REQUEST LATE ERROR, 

/WC--CA ERROR ON READ, O 

/WC-'-INCQRRECT LENGTH BIT ERROR, 
/WC--CA ERROR ON WRITE. 
O Ka661 R 102723 R ER14 JMS ERR02 /WC NON-ZER0 AFTER WRITE O 

- ■ /EOF BIT NOT SET AFTER i^RITE, 

/ILLEGAL ENTRY TO MAG, TAPE, 

/NOT BOT AND CNTR=0. O 

/ALL OUT OF HANDLERS 



o 
o 



u 

o 
o 
o 
o 
o 



o 
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magtaf 


' SRC 
















/*********************♦**** 










/ERROR 

/ 
ER81 


DECODER 


AND PROCESSO 


02646 


R 


102671 


R 


JHS 


ERRfe)0 


02647 


R 


102677 


R 


ER02 


vIMS 


ERRiai 


02650 


R 


102723 


R 


ER03 


JMS 


ERR02 


02651 


R 


102723 


R 


ER04 


JMS 


ERR02 


02652 


R 


102723 


R 


ER05 


JMS 


ERR82 


02653 


R 


l^?J27 


R 


ERae 


JMS 


ERRCJ13 


02654 


R 


601144 


R 


ER07 


JMP 


ER07.1 


02655 


R 


102723 


R 


ER10 


JMS 


ERR02 


02656 


R 


102723 


R 


ERU 


JMS 


ERR02 


02657 


R 


102723 


R 


ER12 


JMS 


ERR02 


02660 


R 


102723 


R 


ER13 


JMS 


ERR02 


02661 


R 


102723 


R 


ER14 


JMS 


ERR02 


02662 


R 


102723 


R 


ER15 


JMS 


ERR02 


02663 


R 


102671 


R 


ER16 


JMS 


ERR00 


02664 


R 


102671 


R 


ER17 


JMS 


ERR00 


02665 


R 


102671 


R 


ER20 


JMS 


ERR00 


02666 


R 


102733 


R 


ER21 


JMS 


ERR04 


H2667 


R 


102733 


R 


ER22 


JMS 


ERR04 


02670 


R 


1552733 


R 


eR23 

/ 
ERR00 


JMS 


ERR04 


02671 


R 


000000 


A 







02672 


R 


103075 


R 




JMS 


ERNUM 


02673 


R 


777777 


A 




LAW 


"1 


02674 


R 


0147441 


R 




dac 


DONE 


02675 


R 


103135 


R 




JMS 


ENDPUT 


02676 


R 


6W0367 


R 


/ 

ERR01 


JMP 


TERMIN 


02677 


R 


000000 


A 







02700 


R 


103075 


R 




JMS 


ERNUM 


02701 


R 


220B67 


R 




LAC* 


CMD 


02792 


R 


10313a 


R 




JMS 


PUT 


02703 


R 


200»65 


R 




LAC 


THSHAN 


02704 


R 


100621 


R 




JMS 


GET 


02705 


R 


17100131 


R 




,PSA 


MSKTAB 


027 06 


R 


5100161 


R 




AND 


ACTIVE 


02707 


R 


(440161 


R 




DAC 


ACTIVE 


02710 


R 


103135 


R 




JMS 


ENDPUT 


02711 


R 


75^00 1 


A 




CLC 




02712 


R 


347446 


R 




TAD 


HANCNT 


02713 


R 


C147446 


R 




DAC 


HANCNT 


02714 


R 


740200 


A 




SZA 




02715 


R 


S22072 


R 




JMP* 


CHKHAN 


02716 


R 


200162 


R 




LAC 


ANRWD 


02717 


R 


740001 


A 




CMA 




02720 


R 


7402ld« 


A 




SZA 




02721 


R 


622072 


R 




JMP* 


CHKHAN 


02722 


R 


602665 


R 




JMP 


ER20 



/CONTROLLER NOT READY 



/SET ERROR NUMBER AND SYSERR 
/FLAG AND TERMINATE, 

/TRANSPORT NOT READY, SET ER,NUM,, 
/HANDLER NUM., COMMAND, AND SYSERR 



o 
o 

O .EJECT 

o 
o 

o 



/CHECK FOR 
/ANY REWINDING, 



/YES, CONTINUE 
/NO. TERMINATE 



» 



o 

o 



o 
o 
o 
o 
o 



O 02"794 R 100621 R JMS GET /DE-ACTI VATE THIS O 
"■ - -..«.,. /HANDLER. 



O 



/DECREMENT HANDLER COUNT AND 
/CHECK FOR NO MORE LEFT AND 
Q 02712 R 347446 R TAD HANCNT /NONE REWINDING. O 



O 

o 
o 
o 
o 

o 



u 
o 


PAGE 45 




MAGTAF 


SRC 








02723 


R 


M30000a 


A 


ERR02 









02724 


R 


lfo3075 


R 




JMS 


ERNUM 


o 


02725 


R 


1030565 


R 


ERR2,1 


J MS 


ERRPUT 


^•^-^ 


02726 


R 


602771 


R 


/ 

ERR03 


JMP 


ERR,1 


o 


02727 


R 


000000 


A 









02730 


R 


103075 


R 




JMS 


ERNUM 




052731 


R 


103K150 


R 




JMS 


ERRPUT 


o 


02732 


R 


603001 


R 




JMP 


BADTAP 


v„x 


02733 


R 


1^100 000 


A 


ERR04 









02734 


R 


202733 


R 




LAC 


ERR04 


o 


0273H 


R 


42742 


R 




OAC 


ERR4,2 


^•^^' 


02736 


R 


207514 


R 




LAC 


TSTND 




02737 


R 


741200 


A 




SNA 




o 


02740 


R 


602743 


R 




JMP 


ERR4,1 




02741 


R 


620666 


R 




JMP* 


CKSR2 




02742 


R 


000000 


A 


ERR4.2 







o 


02743 


R 


103075 


R 


ERR4,1 


JMS 


ERNUM 




02744 


R 


220067 


R 




LAC* 


CMD 




02745 


R 


103130 


R 




JMS 


PUT 


o 


02746 


R 


?>00110 


R 




LAC 


SVSTAT 




02747 


R 


103130 


R 




JHS 


PUT 




0275M 


R 


220073 


R 




LAC* 


CNTR 


o 


02751 


R 


103130 


R 




JMS 


PUT 




82752 


R 


203414 


R 




LAC 


BUFl 




02733 


R 


103130 


R 




JMS 


PUT 


o 


02754 


R 


203415 


R 




LAC 


HUFl+l 




02755 


R 


103130 


H 




JMS 


PUT 




02756 


R 


207564 


R 




LAC 


CBUFSIZ 


o 


02757 


R 


340112 


R 




TAD 


svwc 




02760 


R 


103130 


R 




JMS 


PUT 




02761 


R 


207 4 44 


R 




LAC 


ERR, 22 


o 


02762 


R 


103130 


R 




JMS 


PUT 




02763 


R 


103135 


R 




JMS 


ENDPUT 




02764 


R 


460073 


R 




ISZ* 


CNTR 


o 


02765 


R 


740000 


A 




NOP 




»-w-^ 


02766 


R 


220073 


R 




LAC* 


CNTR 




02767 


R 


060074 


R 




DAC* 


CNTW 


o 


02770 


R 


600647 


R 


ERR.l 


JMP 


RANTS6 




02771 


R 


103135 


R 


JMS 


ENDPUT 


o 


02772 


R 


207514 


R 




LAC 


TSTNQ 




02773 


R 


740200 


A 




SZA 






02774 


R 


620661 


R 




JilP* 


CHKQPR 


o 


02775 


R 


207443 


R 




LAC 


ERN.l 


02776 


R 


547607 


R 




SAD 


C3) 




02777 


R 


600647 


R 




JMP 


RANTS6 


o 


03000 


R 


620661 


R 




JMP* 
.EJECT 


CHKOPR 


o 
















o 
















o 
















o 

















/UTHER ERRORS, SET ERROR NUMBER 
/THEN SET REMAINING PARAMETERS, 

/BAD TAPE ERROR, SET ERROR 

/NUMBER, THEN REMAINING PARAMETERS 
/AND FINALLY 8AD TAPE SPECIAL SEQ. 



/CLOSE PUT ROUTINE, IF SECOND ERROR 



/ENDPUT RETURNS TO SELECT NEXT OPER. 



o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 

o 



o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 

o 
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030501 

03002 
03003 
03004 
0300S 
03006 
03007 
03010 
03011 
03012 
»3013 
03014 

03015 
M301S 

03017 

03020 
03021 
03022 
03023 
03024 
M3025 
fe)3026 

03027 
03030 
03031 
03032 
036)33 
03034 
03035 
03036 
03037 



HAKTAP SRC 



H 
H 
R 
H 
K 
R 
R 
R 
R 
R 
R 

R 

R 
R 
R 

R 
R 
R 
R 
R 
R 
R 
R 
R 

R 
R 
R 
R 
R 
R 
R 



200t'41 

36t^076 

360^77 

060fe)67 

230U5 

047470 

207616 

040115 

777777 

061^871 

103135 

102543 
503044 

600306 

200042 
36M075 
360077 
060067 
200163 
5163071 

c>^767& 
^i6007ss 

207617 
40115 
2aa061 
9)60072 
102543 
603044 
600306 



BAOTAP 



03040 R mmi6& A 

6)3041 R ?J)747\6 H 

03042 R 5140115 R 

03043 R 600642 R 

03044 R 207514 R 

03045 R S47524 R 

03046 R 600650 R 

03047 R 600367 R 



/ 

BOTAPl 



80TAP2 



BDTAP3 



NOP 

LAC 

TAD* 

TAO* 

DAC* 

LAC 

DAC 

LAC 

DAC 

LAW 

DAC* 

J CIS 

JHS 
JMP 
JHP 



LAC 

TAD* 

TAD* 

DAC* 

LAC 

DAC* 

LAC 

DAC* 

LAC 

DAC 

LAC 

DAC* 

JriS 

JflP 

JHP 



LAC 
DAC 
JMP 

LAC 
SAD 
JMP 
JMP 
, EJECT 



SPCREV 

DENPAR 

HANNUM 

CMO 

DISTSW 

SAVDIS 

(ODTAPU 

DISTSW 

WC 

ENDPUT 

TRNCMO 

B0TAP3 

EXIT 



WRTEXT 

DENPAR 

HANNUM 

CMD 

MAX8UF 

WC 

(BUFl-U 

CA 

CB0TAP2) 

DISTSW 

CKWRT 

CHKPTR 

TRNCMD 

8PTAP3 

EXIT 



savpis 

DISTSW 
RANTST+l 

TSTNO 
C03 

RANTS3 
TERMIN 



/BAD TAPE SEQUENCE, PERFORMED 
/IN THE EVENT OF A BAD TAPE 
/ERROR. THE SEQUENCE IS AS 
/FOLLOWS. A FORCED BACKWARD 
/SPACE IS ARTIFICIALLY SET AS 



/THE NEST OPERATION FQR 
/HANDLER. 



THIS 



/SET SPECIAL SEQUENCE SWITCH TO 
/AVOID SELECT NXT OP FOR THIS HANDLER, 



/SECOND PORTION OF BAD TAPE 
/SEQUENCE, FORCE AN EXTENDED 
/WRITE 



/SET CHECK POINTER AS FOR A 

/NORMAL WRITE. 

/RETURN. TO NORMAL SEQUENCE, 



o 

o 
o 
o 



o 



o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 

o 



o ^^ 
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O o 

0^i0^0 R 5^MC)0r/ivj A ERRPUT 

03051 R 220067 R UAC* CMD /SET INITIAL CDHMAND. 

O 03052 R 193U0 R JI'lS PUT O 

030b3 R 3M0K82 R L.AC ERCOOE 

03WS4 R 587557 R AND (7) ^ 

O 03055 R 54755/ R SAO C7) O 

03056 R 741W0M A SKP 

03057 R 603W62 R JMP ,t3 

O 03060 R 207503 R l,AC SSVTAT O 

03061 R 741000 A SKP 

03062 R 200110 R UAC SVSTAT /SET RESULTING STATUS. 

O 03063 R 103130 R JHS PUT O 

03064 R 220071 R LAC* WC /SET INITIAL WORD COUNT, 

83065 R 103130 R JM3 PUT 

O 03066 R 200112 R LAC SVWC /SET FINAL WORD CDUNT, O 

153067 R 103130 R JHS PUT 

03070 R 220070 R LAC* CA /SET INITIAL CURRENT ADDRESS, 

O 03071 R 10313W R JM3 PUT O 

03072 R 200U1 R LAC SVCA /SET FINAL CURRENT ADDRESS, 

03073 R 103130 R JMS PUT 

03074 R 623050 R JMP* ERRPUT /RETURN, O 



u 



o 
o 
o 
o 
o 
o 
o 
o 



/ 

/ROUTINE FOR DETERMINING ERROR NUMBER, 



.EJECT 



o 



n 03075 R 5i0«00ia A ERNUH 

03076 R 203075 R LAC ERNUM /GET ERROR ENTRY ADDRESS AND 

03077 R 507620 R AND i77777) 

Q 03100 R 347621 R TAD C-2) /FORM: O 

03101 R W47443 R DAC ERN.IS /CERR. ADR.-8ASE ADR , 3 :;ER ,NUM, 

03102 R 750001 A CLC 

O 03103 R 347622 R TAD CER0U O 

03104 R 740001 A CMA 

03105 R 367443 R TAD* ERN.l 

O 03106 R 507620 R AND i77777) O 

03107 R r;!47443 R DAC ERN,1 

03110 R 103112 R JHS RESPUT /SET ERROR NUMBER IN PROPER TABLE, 

O 03111 R 623075 R JMP* ERNUM /RETURN, O 



o 
o 
o 
o 
o 
o 
o 

o 



u 
















o 
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/PUT ROUTINE, 


PLACES ERROR 












/ERROR 


TABLE 


FOR MONITOR, 


O 










/ 








03112 


R 


ii»!?!00!'J0 


A 


RESPUT 









03 U 3 


R 


2\ia<6'd^ 


R 




LAC 


SYSERR 


o 


031 H 


H 


7 40200 


A 




SZA 






03115 


H 


603122 


R 




JMP 


PUTS.l 




03 U 6 


R 


207443 


R 




LAC 


ERN,1 


o 


03 U 7 


R 


34^622 


R 




DAC 


ERCODE 




03120 


R 


207623 


R 




LAC 


CERCODE+13 




03121 


R 


603125 


R 




JMP 


PUTS. 2 


o 


03122 


R 


207443 


R 


PUTS.l 


LAC 


ERN.l 




03123 


K 


M40175 


R 




DAC 


SAVERR 




03124 


R 


207624 


R 




LAC 


CSAVERR+n 


o 


03125 


R 


C547462 


R 


PUTS. 2 


DAC 


PUT.l^ 




03126 


H 


147463 


R 




OZM 


PUT, 2^ 




03127 


H 


623U2 


R 




JMP* 


RESPUT 


o 


03130 


R 


000000 


A 


PUT 









03131 


R 


fii67462 


R 




DAC* 


PUT.l 




03132 


R 


447462 


R 




ISZ 


PUT.l 


o 


(33133 


R 


447463 


R 




ISZ 


PUT. 2 


^H.^ 


03134 


R 


623130 


R 




JMP* 


PUT 




03135 


R 


51001:300 


A 


ENDPUT 







o 


03136 


R 


447463 


R 




ISZ 


PUT, 2 




03137 


R 


200020 


R 




LAC 


SYSERR 




0314W 


R 


7402^0 


A 




SZA 




o 


03141 


R 


603160 


R 




JMP 


PUTS, 3 




03142 


R 


207463 


R 




LAC 


PUT. 2 




03143 


R 


740001 


A 




CMA 




o 


03144 


R 


347521 


R 




TAD 


CD 




03145 


R 


040021 


R 




DAC 


ERCODE-'l 




03146 


R 


207441 


R 




LAC 


DONE 


o 


03147 


R 


741200 


A 




SNA 






03150 


R 


603155 


R 




JMP 


ENDP.l 




03151 


R 


777776 


A 




LAW 


^2 


o 


03152 


R 


M4002fei 


R 




DAC 


SYSERR 




03153 


R 


600306 


R 




JMP 


EXIT 














, EJECT 


o 
















o 
















o 
















o 
















o 

































o 
















o 

















/GET SECOND ERROR FLAG, IS IT ON? 

/YES, THIS IS SECOND ERROR, 

/NO, FIRST ERROR. GET ERROR NUMBER. 

/SET ERROR NUMBER, 

/SET START PUTAWAY ADDRESS, 



/SET ERROR NUMBER, 



/CHECK SECOND ERROR FLAG, 



/SET PARAMETER COUNT IN 



o 
o 
o 
o 



o 



/SET START PUTAWAY ADR, O 

/CLEAR PARAMETER COUiNTER, 

y C y T T 

/PUT SUBROUTINE, DEPOSITS PARAMETERS Q 

/IN SUCCESSIVE LOGS, 

o 
o 



/ON, THIS WAS SECOND ERROR, Q 

/OFF, THIS WAS FIRST ERROR, 



o 
o 
o 
o 
o 
o 
o 
o 
o 
o 

o 



. .... . .- 


" "■ ■ " """ 


.-. .„ 


■^ ""■ "■ ■■■ " " ■■ " 




""" " " " 


_ ,„ 


~ " ^~ 


o 
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o 


03154 


R 


600367 


R 


DDN,1 


JHP 


TERHIN 




03155 


R 


207625 


R 


ENDP.l 


UAC 


C-U 


o 


03156 


R 


£140020 


R 




DAC 


SYSERR 


^*w^ 


03157 


H 


623135 


R 




JMP* 


ENOPUT 




03160 


R 


207463 


R 


PUTS, 3 


LAC 


PUT. 2 


o 


03161 


R 


740001 


A 




CMA 






03162 


R 


347521 


R 




TAD 


cu 




03163 


R 


040174 


R 




DAC 


SAVERR-1 


o 


03164 


R 


mm 


A 




LAW 


-1 




03ld5 


R 


047457 


R 




DAC 


MOVERR 




03166 


R 


307621 


R 




LAC 


(-2) 


o 


03167 


R 


C140020 


R 




DAC 


SYSERR 




031 79 


R 


707322 


A 




MTAK 






03171 


R 


600306 


R 




J MP 


EXIT 


o 


03172 


R 


000000 


A 


MOVPUT 









R31/3 


R 


200174 


R 




LAC 


SAVERR"! 




03174 


R 


347625 


R 




TAD 


c-u 


o 


03175 


R 


047462 


R 




DAC 


PUT.l 




03176 


R 


207626 


R 




LAC 


CSAVERR-n 




03177 


R 


047463 


R 




DAC 


PUT, 2 


o 


03200 


R 


207627 


R 




LAC 


CERCODE-n 




03201 


R 


047464 


R 




DAC 


PUT. 3** 




03202 


R 


227463 


R 


PUTS, 4 


LAC* 


PUT, 2 


o 


03203 


R 


067464 


R 




DAC* 


PUT. 3 




03204 


R 


447463 


R 




ISZ 


PUT, 2 




032?J5 


R 


447464 


R 




ISZ 


PUT. 3 


o 


03206 


R 


447462 


R 




ISZ 


PUT.l 




03207 


R 


603202 


R 




JMP 


PUTS, 4 




03210 


R 


777777 


A 




LAW 


-1 


o 


03211 


R 


040020 


R 




DAC 


SYSERR 




03212 


R 


147457 


R 




DZM 


HOVERR 




03213 


R 


623135 


R 




JMP* 


ENDPUT 


o 












/ 














/OPERATION TABLE, ENTRIES B 




03214 


R 




A 


QPRTAB 


.BLOCK 


NUf1HAN*NUMP 


o 
















o 
















o 
















o 










/ 
















/INPUT- 


OUTPUT BUFFERS 


o 










/ 








03414 


R 




A 


BUFl 


.BLOCK 


BUFSIZ 




07414 


R 


000000 


A 


ENDBUF 







o 












.EJECT 




o 
















o 
















o 

















/NORMAL ERROR TABLE, SET 

/SYSERR TO "1 FOR MONITOR, 

/EXIT, 

/THIS IS SECOND ERROR, SET 



/PARAMETER COUNT, SET ERROR 
/SWITCH TO MOVE PARAMETERS, 
/SET "2 FOR MONITOR IN 
/SYSERR AND 



/EXIT TO MONITOR, NO NEW I/O, 

/GET PARAMETER COUNT +1 AND 
/SET FOR MOVE, 

/SET — FROM — ADDRESS 

/SET--.TO— 'ADDRESS 

/MAKE THE MOVE OF ERROR 
/PARAMETERS, 



/DONE WITH HOVE, 

/RESET MOVE ERROR SWITCH, 
/GO TO INITIATE NEW I/O. 

Y HANDLER 

AR /CONTAINS- — ^--—-^-^ 

/COMMAND 

/CURRENT ADDRESS 

/WORD COUNT 

/CHECK ROUTINE POINTER FOR THIS CMD, 

/CNTR 

/CNTW 

/CURRENT DENSITY AND PARITY, 

/NiNETRACK HANDLER, 

/ACTIVE ^ INACTIVE 

/REWINDING ^ NOT REWINDING. 



/8UFFER1. 



u 
o 
o 
o 
o 
o 
o 
o 
o 
o 



o 



o 
o 
o 
o 
o 
o 
o 
o 
o 
o 

o 



[} 





PAGE 50 




MAGTAF 


' SRC 


o 






fi)H000W 


R 






07520 


R 


■677777 


A 


*U 


o 


07521 


R 


C100001 


A 


*L 




07522 


R 


100000 


A 


*L 




07523 


R 


f^&M300 


A 


*L 


o 


07524 


H 


!?051000 


A 


*U 




07525 


R 


f^ w 1 a 


A 


*U 




07526 


R 


0002Bki 


A 


*l 


o 


07527 


R 


4««00!S 


A 


*U 




07530 


R 


776600 


A 


*U 




07531 


R 


777774 


A 


*t 


o 


07532 


R 


•^00641 


R 


*L 




07533 


R 


mdxsi 


R 


*l 




07534 


R 


^00010 


A 


*L 


o 


07535 


R 


177777 


A 


*l 




07536 


R 


00061b 


R 


*L 




07537 


R 


7000H0 


A 


*L 


o 


07540 


R 


2vj0(a00 


A 


*l 




07541 


R 


7776^<a 


A 


*U 




07542 


R 


f4032l4 


R 


*L 


o 


07 543 


R 


inP3000 


A 


*L 




07544 


R 


77400« 


A 


*L 




07545 


R 


001000 


A 


*L 


o 


07546 


R 


003415 


R 


*U 




07547 


R 


v10C?lKif)2 


A 


*l 




07550 


R 


040800 


A 


*L 


o 


07551 


R 


137600 


A 


*l 




07552 


R 


000400 


A 


*L 




07553 


R 


020000 


A 


*l 


o 


07554 


R 


00U16 


R 


*L 




07555 


R 


001157 


R 


*L 




07556 


R 


9»0U7l 


R 


*U 


o 


'dVHii? 


R 


i?ir/im)^7 


A 


*L 


^^^•^ 


67560 


R 


i;)00074^ 


R 


*L 




07561 


R 


■^07000 


A 


*l 





07562 


R 


15)06000 


A 


*L 


s*-<^ 


07563 


R 


002000 


A 


*l. 




07564 


R 


304001^ 


A 


*L 


o 


07565 


R 


0(30004 


A 


*U 


07566 


R 


000005 


A 


*L 




07567 


R 


m^^77 


A 


*L 


o 


07570 


R 


000006 


A 


*L 


^>^ 


07571 


R 


«4(5300 


A 


*U 




07572 


R 


77mm 


A 


*l 


o 


07573 


R 


(301673 


R 


*u 




07574 


R 


001663 


R 


*L 




07575 


R 


766000 


A 


*l 


o 


07576 


R 


51(^3413 


R 


*L 


N»^ 


07577 


R 


002014 


R 


*l 




07600 


R 


015)2132 


R 


*L 


o 


07601 


K 


fJ)B0l64 


R 


♦ L 




07602 


R 


002232 


R 


*L 




07603 


R 


002253 


R 


*L 


o 












o 












o 













.END 



U0D3W 



o 

o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 



o 






o 
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07604 R 


!7|03414 R *L 




07605 H 


5^02346 R *l 


o 


07606 R 


002367 R *L 


X-^ 


07607 R 


0CI0K03 A *l 




«^76J10 R 


m24AA R *L 


o 


076U R 


002472 R *L 




07612 R 


002504 R #L 




W7613 R 


f;)02532 R *U 


o 


07614 R 


C1030«0 A *L 


^•w^ 


07615 R 


777^/7 A *L 




07616 R 


003020 R *L 


o 


07617 R 


«?03fc4W R *L 




07620 R 


r/7777 A *L 




07621 R 


77777& A *U 


o 


07622 R 


002646 R *L 




07623 R 


fyl00ti23 R *U 




07624 R 


00^176 R *L 





0/625 R 


777777 A *L 




07626 R 


(^(&'3i7A R *l 




07627 R 


(300021 R *U 


o 




SIZE=y7e42 


o 






o 






o 




















o 






o 






o 






o 






o 






o 






o 






o 







NO ERROR LINES 



o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 

o 



o 

o 
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ACSAVE 


07415 


R 


ACTIVE 


00161 


R 


ANRWD 


00162 


R 


APIFUG 


07416 


R 




BADTAP 


03001 


R 


BDTAPl 


03020 


R 


SDTAP2 


03040 


R 


8PTAP3 


03044 


R 


o 


BREAK 


00433 


R 


BREAKl 


00451 


R 


BRKAC 


07417 


R 


BUFGEN 


02601 


R 


V— ^ 


BUFSIZ 


i^0400ivi 


A 


BUF.l 


07420 


R 


BUF.2 


07421 


R 


BUF,3 


07422 


R 




BUFl 


03414 


R 


CA 


00070 


R 


CHKCDM 


01032 


R 


CHKC.l 


01045 


R 


o 


CHKC.a 


01M57 


R 


CHKHAN 


02072 


R 


CHKOPR 


00661 


R 


CHKPTR 


00072 


R 




CHKTAB 


mm55 


R 


CHK.l 


07423 


R 


CKNQOP 


00055 


R 


CKO.l 


07424 


R 




CKRDCM 


fia06!?i 


R 


CKREAD 


00057 


R 


CKRWD 


02023 


R 


CKRWND 


00056 


R 


o 


CKRW.l 


W2045 


R 


CKRN.a 


02034 


R 


CKSPBK 


00064 


R 


CKSPFD 


00063 


R 




CKSR.4 


00717 


R 


CK3R2 


00666 


R 


CKSR4 


01000 


R 


CKSR5 


01015 


R 




CKSR6 


En(^24 


R 


CKSR7 


01027 


R 


CKS.l 


07425 


R 


CKS,2 


07426 


R 


o 


CKS,3 


07427 


R 


CKS2,1 


07430 


R 


CKS2.2 


00743 


R 


CKS2,3 


00752 


R 




CKWRT 


W0061 


R 


CKWTEF 


00062 


R 


CKW.l 


07431 


R 


CKW.2 


07432 


R 




CKW.3 


07433 


R 


CLBH.l 


07434 


R 


CLBM,2 


07435 


R 


CL8M1 


02274 


R 


o 


CLOPTB 


00627 


R 


CLOP.l 


00634 


R 


CLO.l 


07436 


R 


CL0,2 


07437 


R 




CLRDIS 


01513 


R 


CLRRWD 


02057 


R 


CMD 


00067 


R 


CMDCNT 


00100 


R 




CMDDIS 


01537 


R 


CMDD.l 


01556 


R 


CMDD,2 


01562 


R 


CMDD,5 


01566 


R 


o 


CMDU.o 


016013 


R 


CM(30,7 


01612 


R 


CM05KL 


000032 


R 


CMO.l 


07440 


R 




CNTR 


0M073 


R 


CNTW 


m&7A 


R 


CURHAN 


00066 


R 


PENPAR 


00075 


R 




DISTSW 


00115 


R 


DLRETY 


01224 


R 


DONE 


07441 


R 


UON.l 


03154 


R 


o 


DOOVER 


aiiia 


R 


DSTSWi 


07442 


R 


EBA 


707734 


A 


EEM 


707702 


A 




END8UF 


07414 


R 


ENDOPR 


00356 


R 


ENDPUT 


03135 


R 


ENDP.l 


03155 


R 




EOFCNT 


0«ai0i 


R 


EDFCON 


00126 


R 


ERCODE 


00022 


R 


ERNUM 


03075 


R 


o 


ERN.l 


07443 


R 


ERRPUT 


03050 


R 


ERR.l 


02771 


R 


ERR. 22 


07444 


R 


^^■^ 


ERR00 


02671 


R 


ERR0i 


02677 


R 


ERR02 


02723 


R 


ERR03 


02727 


R 




ERR04 


02733 


R 


£RR2,l 


02725 


H 


ERR4.1 


02743 


R 


tRR4,2 


02742 


R 


o 


ER01 


02646 


R 


ER02 


02647 


R 


ER03 


02650 


R 


ER04 


02651 


R 




ER05 


02652 


R 


ER06 


02653 


R 


ER07 


02654 


R 


ER07,1 


01144 


R 




ER10 


02655 


R 


ER10.1 


01105 


R 


ERll 


02656 


R 


ER12 


02657 


R 


o 


ER13 


H266f:i 


R 


ER14 


02661 


R 


ER15 


02662 


R 


ERie 


02663 


R 


^-^ 


ER17 


02664 


R 


ER20 


02666 


R 


ER21 


02666 


R 


ER22 


02667 


R 




ER23 


02670 


R 


EXIT 


00306 


R 


FIVTRY 


01157 


R 


FIV.l 


01171 


R 


o 


FIV.2 


01211 


R 


GENRD 


02625 


R 


GENRWO 


01505 


n 


GENWRT 


02255 


R 




GET 


00621 


R 


GET,! 


07445 


R 


HANCNT 


07446 


R 


HANDNM 


00045 


R 




HANNOl 


&7Aii7 


R 


HANN02 


07450 


R 


HANNUM 


md77 


R 


HNDNUH 


07451 


R 





HOUP 


02307 


R 


INCRE 


00604 


R 


INTOPR 


01673 


R 


INTO.l 


01722 


R 


INTO. 3 


H1757 


R 


INTO, 4 


01731 


R 


INTO. 5 


01764 


R 


IN TO, 6 


01727 


R 




INT. 3 


07452 


R 


INT, 4 


07453 


R 


INT. 5 


07454 


R 


INT, 6 


07455 


R 


o 


LINK 


07456 


R 


MAX8UF 


00163 


R 


HINIT 


00205 


R 


I^INITl 


00224 


R 


^»w-' 


MINI.l 


00465 


R 


HINI.2 


00507 


R 


MOVERR 


07 457 


R 


MOVPUT 


03172 


R 




MPY 


01263 


R 


MSERV 


00301 


R 


MSKTAB 


00131 


R 


MTAF 


707322 


A 


o 


NTCM 


707324 


A 


HTCR 


707321 


A 


MTGO 


707304 


A 


MTLC 


707326 


A 


MTRC 


707312 


A 


mtrs 


707352 


A 


HTSP 


707341 


A 


MTTR 


707301 


A 




NQNSEN 


00076 


R 


NQNTAB 


00116 


R 


Noap 


00032 


R 


NOQPl 


00043 


R 


o 


NUMHAN 


000010 


A 


NUMPAR 


000020 


A 


OPRTAS 


03214 


R 


PARDRL 


01064 


R 


\^ 


PARD.2 


0U03 


R 


PARTA8 


'!^^<df/)67 


R 


PATTEN 


07450 


R 


POLDQN 


07461 


R 




POLHAN 


00525 


R 


P0L.H,2 


00565 


R 


PQLH,4 


00562 


R 


P0L,H.5 


00570 
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